BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / T / ToolsPlus 2.1.sit / Tools Plus 2.1 ƒ / Tools Plus 2.1 (C & Pascal) / Tools Plus 2.1 for Pascal / ToolsPlus.p < prev
MacBinary | 1993-10-24 | 36.3 KB | [TEXT/PJMM]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sun Oct 24 19:47:14 1993, modified Sun Oct 24 19:47:14 1993, creator Think Pascal, type ASCII, 36286 bytes "ToolsPlus.p" , at 0x8e3e 522 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[PJMM]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 54 6f 6f 6c 73 50 | 6c 75 73 2e 70 00 00 00 |..ToolsP|lus.p...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 50 4a 4d | 4d 01 00 00 00 00 00 00 |.TEXTPJM|M.......|
|00000050| 00 00 00 00 00 8d be 00 | 00 02 0a a8 f0 c4 82 a8 |........|........|
|00000060| f0 c4 82 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0a ba 00 00 |........|........|
|00000080| 7b 09 54 6f 6f 6c 73 20 | 50 6c 75 73 20 28 56 65 |{.Tools |Plus (Ve|
|00000090| 72 73 69 6f 6e 20 32 2e | 31 29 20 50 61 73 63 61 |rsion 2.|1) Pasca|
|000000a0| 6c 20 69 6e 74 65 72 66 | 61 63 65 09 09 09 09 09 |l interf|ace.....|
|000000b0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7d 0d 7b |........|.....}.{|
|000000c0| 09 43 6f 70 79 72 69 67 | 68 74 20 28 43 29 20 31 |.Copyrig|ht (C) 1|
|000000d0| 39 38 39 2d 31 39 39 33 | 20 57 61 74 65 72 d5 73 |989-1993| Water.s|
|000000e0| 20 45 64 67 65 20 53 6f | 66 74 77 61 72 65 09 09 | Edge So|ftware..|
|000000f0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 7d 0d |........|......}.|
|00000100| 0d 7b 09 54 68 69 73 20 | 75 6e 69 74 20 69 73 20 |.{.This |unit is |
|00000110| 74 68 65 20 69 6e 74 65 | 72 66 61 63 65 20 62 65 |the inte|rface be|
|00000120| 74 77 65 65 6e 20 50 61 | 73 63 61 6c 20 61 70 70 |tween Pa|scal app|
|00000130| 6c 69 63 61 74 69 6f 6e | 73 20 61 6e 64 20 54 6f |lication|s and To|
|00000140| 6f 6c 73 20 50 6c 75 73 | 2e 20 20 49 74 20 6d 75 |ols Plus|.  It mu|
|00000150| 73 74 20 62 65 20 75 73 | 65 64 20 62 79 20 61 6e |st be us|ed by an|
|00000160| 79 20 70 72 6f 67 72 61 | 6d 20 6f 72 20 75 6e 69 |y progra|m or uni|
|00000170| 74 09 7d 0d 7b 09 74 68 | 61 74 20 6d 61 6b 65 73 |t.}.{.th|at makes|
|00000180| 20 72 65 66 65 72 65 6e | 63 65 20 74 6f 20 61 6e | referen|ce to an|
|00000190| 79 20 70 61 72 74 20 6f | 66 20 54 6f 6f 6c 73 20 |y part o|f Tools |
|000001a0| 50 6c 75 73 2e 09 09 09 | 09 09 09 09 09 09 09 09 |Plus....|........|
|000001b0| 09 09 09 09 09 09 7d 0d | 7b 09 09 09 09 09 09 09 |......}.|{.......|
|000001c0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|000001d0| 09 09 09 09 09 09 7d 0d | 7b 09 41 6c 6c 20 54 59 |......}.|{.All TY|
|000001e0| 50 45 73 2c 20 56 41 52 | 69 61 62 6c 65 73 2c 20 |PEs, VAR|iables, |
|000001f0| 61 6e 64 20 43 4f 4e 53 | 54 61 6e 74 73 20 72 65 |and CONS|Tants re|
|00000200| 71 75 69 72 65 64 20 62 | 79 20 54 6f 6f 6c 73 20 |quired b|y Tools |
|00000210| 50 6c 75 73 20 61 72 65 | 20 69 6e 63 6c 75 64 65 |Plus are| include|
|00000220| 64 2e 09 09 09 09 09 09 | 09 09 09 09 7d 0d 7b 09 |d.......|....}.{.|
|00000230| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000240| 09 09 09 09 09 09 09 09 | 09 09 09 09 7d 0d 7b 09 |........|....}.{.|
|00000250| 54 68 65 20 65 6e 74 69 | 72 65 20 22 69 6d 70 6c |The enti|re "impl|
|00000260| 65 6d 65 6e 74 61 74 69 | 6f 6e 22 20 69 73 20 65 |ementati|on" is e|
|00000270| 78 74 65 72 6e 61 6c 2c | 20 74 68 65 72 65 62 79 |xternal,| thereby|
|00000280| 20 72 65 71 75 69 72 69 | 6e 67 20 74 68 65 20 75 | requiri|ng the u|
|00000290| 73 65 20 6f 66 20 62 6f | 74 68 20 54 6f 6f 6c 73 |se of bo|th Tools|
|000002a0| 20 50 6c 75 73 20 6c 69 | 62 72 61 72 79 20 66 69 | Plus li|brary fi|
|000002b0| 6c 65 73 3a 09 09 09 09 | 09 7d 0d 7b 09 22 54 6f |les:....|.}.{."To|
|000002c0| 6f 6c 73 50 6c 75 73 2e | 4c 69 62 31 22 20 61 6e |olsPlus.|Lib1" an|
|000002d0| 64 20 22 54 6f 6f 6c 73 | 50 6c 75 73 2e 4c 69 62 |d "Tools|Plus.Lib|
|000002e0| 32 22 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |2"......|........|
|000002f0| 09 09 09 09 09 7d 0d 0d | 0d 75 6e 69 74 20 54 6f |.....}..|.unit To|
|00000300| 6f 6c 73 50 6c 75 73 3b | 0d 0d 0d 69 6e 74 65 72 |olsPlus;|...inter|
|00000310| 66 61 63 65 0d 09 63 6f | 6e 73 74 0d 09 09 55 73 |face..co|nst...Us|
|00000320| 65 43 6f 6c 6f 72 20 3d | 20 74 72 75 65 3b 09 09 |eColor =| true;..|
|00000330| 09 09 09 09 09 09 09 09 | 09 09 7b 49 4e 49 54 49 |........|..{INITI|
|00000340| 41 4c 49 5a 41 54 49 4f | 4e 3a 09 55 73 65 20 63 |ALIZATIO|N:.Use c|
|00000350| 6f 6c 6f 72 20 69 66 20 | 61 76 61 69 6c 61 62 6c |olor if |availabl|
|00000360| 65 09 09 7d 0d 09 09 49 | 67 6e 6f 72 65 43 6f 6c |e..}...I|gnoreCol|
|00000370| 6f 72 20 3d 20 66 61 6c | 73 65 3b 09 09 09 09 09 |or = fal|se;.....|
|00000380| 09 09 09 09 09 09 09 7b | 09 09 09 09 09 44 6f 6e |.......{|.....Don|
|00000390| 27 74 20 75 73 65 20 63 | 6f 6c 6f 72 09 09 09 09 |'t use c|olor....|
|000003a0| 7d 0d 09 09 64 6f 4e 6f | 74 68 69 6e 67 20 3d 20 |}...doNo|thing = |
|000003b0| 30 3b 09 09 09 09 09 09 | 09 09 09 09 09 09 09 7b |0;......|.......{|
|000003c0| 50 4f 4c 4c 49 4e 47 3a | 09 6e 6f 20 65 76 65 6e |POLLING:|.no even|
|000003d0| 74 09 09 09 09 09 09 09 | 7d 0d 09 09 64 6f 43 68 |t.......|}...doCh|
|000003e0| 67 57 69 6e 64 6f 77 20 | 3d 20 31 3b 09 09 09 09 |gWindow |= 1;....|
|000003f0| 09 09 09 09 09 09 09 09 | 7b 09 09 09 75 73 65 72 |........|{...user|
|00000400| 20 63 6c 69 63 6b 65 64 | 20 69 6e 20 61 6e 20 69 | clicked| in an i|
|00000410| 6e 61 63 74 69 76 65 20 | 77 69 6e 64 6f 77 09 7d |nactive |window.}|
|00000420| 0d 09 09 64 6f 52 65 66 | 72 65 73 68 20 3d 20 32 |...doRef|resh = 2|
|00000430| 3b 09 09 09 09 09 09 09 | 09 09 09 09 09 09 7b 09 |;.......|......{.|
|00000440| 09 09 61 20 77 69 6e 64 | 6f 77 20 68 61 73 20 74 |..a wind|ow has t|
|00000450| 6f 20 62 65 20 72 65 66 | 72 65 73 68 65 64 09 09 |o be ref|reshed..|
|00000460| 7d 0d 09 09 64 6f 47 6f | 41 77 61 79 20 3d 20 33 |}...doGo|Away = 3|
|00000470| 3b 09 09 09 09 09 09 09 | 09 09 09 09 09 09 7b 09 |;.......|......{.|
|00000480| 09 09 74 68 65 20 63 6c | 6f 73 65 20 62 6f 78 20 |..the cl|ose box |
|00000490| 77 61 73 20 63 6c 69 63 | 6b 65 64 09 09 09 7d 0d |was clic|ked...}.|
|000004a0| 09 09 64 6f 42 75 74 74 | 6f 6e 20 3d 20 34 3b 09 |..doButt|on = 4;.|
|000004b0| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 09 09 09 |........|....{...|
|000004c0| 62 75 74 74 6f 6e 20 77 | 61 73 20 63 6c 69 63 6b |button w|as click|
|000004d0| 65 64 09 09 09 09 09 7d | 0d 09 09 64 6f 4d 65 6e |ed.....}|...doMen|
|000004e0| 75 20 3d 20 35 3b 09 09 | 09 09 09 09 09 09 09 09 |u = 5;..|........|
|000004f0| 09 09 09 7b 09 09 09 6d | 65 6e 75 20 77 61 73 20 |...{...m|enu was |
|00000500| 73 65 6c 65 63 74 65 64 | 09 09 09 09 09 7d 0d 09 |selected|.....}..|
|00000510| 09 64 6f 4b 65 79 44 6f | 77 6e 20 3d 20 36 3b 09 |.doKeyDo|wn = 6;.|
|00000520| 09 09 09 09 09 09 09 09 | 09 09 09 7b 09 09 09 61 |........|...{...a|
|00000530| 20 6b 65 79 62 6f 61 72 | 64 20 6b 65 79 20 77 61 | keyboar|d key wa|
|00000540| 73 20 70 72 65 73 73 65 | 64 09 09 7d 0d 09 09 64 |s presse|d..}...d|
|00000550| 6f 41 75 74 6f 4b 65 79 | 20 3d 20 37 3b 09 09 09 |oAutoKey| = 7;...|
|00000560| 09 09 09 09 09 09 09 09 | 09 09 7b 09 09 09 61 20 |........|..{...a |
|00000570| 6b 65 79 62 6f 61 72 64 | 20 6b 65 79 20 69 73 20 |keyboard| key is |
|00000580| 61 75 74 6f 2d 72 65 70 | 65 61 74 69 6e 67 09 7d |auto-rep|eating.}|
|00000590| 0d 09 09 64 6f 4b 65 79 | 55 70 20 3d 20 38 3b 09 |...doKey|Up = 8;.|
|000005a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 09 09 09 |........|....{...|
|000005b0| 61 20 6b 65 79 62 6f 61 | 72 64 20 6b 65 79 20 77 |a keyboa|rd key w|
|000005c0| 61 73 20 72 65 6c 65 61 | 73 65 64 09 09 7d 0d 09 |as relea|sed..}..|
|000005d0| 09 64 6f 43 6c 69 63 6b | 46 69 65 6c 64 20 3d 20 |.doClick|Field = |
|000005e0| 39 3b 09 09 09 09 09 09 | 09 09 09 09 09 09 7b 09 |9;......|......{.|
|000005f0| 09 09 6d 6f 75 73 65 20 | 63 6c 69 63 6b 65 64 20 |..mouse |clicked |
|00000600| 69 6e 20 69 6e 61 63 74 | 69 76 65 20 66 69 65 6c |in inact|ive fiel|
|00000610| 64 09 09 7d 0d 09 09 64 | 6f 53 63 72 6f 6c 6c 42 |d..}...d|oScrollB|
|00000620| 61 72 20 3d 20 31 30 3b | 09 09 09 09 09 09 09 09 |ar = 10;|........|
|00000630| 09 09 09 09 7b 09 09 09 | 6d 6f 75 73 65 20 63 6c |....{...|mouse cl|
|00000640| 69 63 6b 65 64 20 69 6e | 20 61 20 73 63 72 6f 6c |icked in| a scrol|
|00000650| 6c 20 62 61 72 09 09 7d | 0d 09 09 64 6f 4c 69 73 |l bar..}|...doLis|
|00000660| 74 42 6f 78 20 3d 20 31 | 31 3b 09 09 09 09 09 09 |tBox = 1|1;......|
|00000670| 09 09 09 09 09 09 09 7b | 09 09 09 73 6f 6d 65 20 |.......{|...some |
|00000680| 73 6f 72 74 20 6f 66 20 | 4c 69 73 74 20 42 6f 78 |sort of |List Box|
|00000690| 20 61 63 74 69 76 69 74 | 79 09 09 7d 0d 09 09 64 | activit|y..}...d|
|000006a0| 6f 43 6c 69 63 6b 20 3d | 20 31 32 3b 09 09 09 09 |oClick =| 12;....|
|000006b0| 09 09 09 09 09 09 09 09 | 09 7b 09 09 09 6d 6f 75 |........|.{...mou|
|000006c0| 73 65 20 63 6c 69 63 6b | 2f 64 72 61 67 09 09 09 |se click|/drag...|
|000006d0| 09 09 7d 0d 09 09 64 6f | 43 6c 69 63 6b 43 6f 6e |..}...do|ClickCon|
|000006e0| 74 72 6f 6c 20 3d 20 31 | 30 31 3b 09 09 09 09 09 |trol = 1|01;.....|
|000006f0| 09 09 09 09 09 09 7b 09 | 09 09 6d 6f 75 73 65 20 |......{.|..mouse |
|00000700| 63 6c 69 63 6b 65 64 20 | 69 6e 20 61 20 63 75 73 |clicked |in a cus|
|00000710| 74 6f 6d 20 63 6f 6e 74 | 72 6f 6c 09 7d 0d 09 09 |tom cont|rol.}...|
|00000720| 64 6f 4d 61 6e 75 61 6c | 45 76 65 6e 74 20 3d 20 |doManual|Event = |
|00000730| 31 30 32 3b 09 09 09 09 | 09 09 09 09 09 09 09 7b |102;....|.......{|
|00000740| 09 09 09 6d 61 6e 75 61 | 6c 6c 79 20 70 72 6f 63 |...manua|lly proc|
|00000750| 65 73 73 65 64 20 65 76 | 65 6e 74 73 09 09 09 7d |essed ev|ents...}|
|00000760| 0d 09 09 64 6f 4d 6f 76 | 65 57 69 6e 64 6f 77 20 |...doMov|eWindow |
|00000770| 3d 20 31 30 33 3b 09 09 | 09 09 09 09 09 09 09 09 |= 103;..|........|
|00000780| 09 7b 09 09 09 61 20 77 | 69 6e 64 6f 77 20 77 61 |.{...a w|indow wa|
|00000790| 73 20 6d 6f 76 65 64 20 | 62 79 20 75 73 65 72 09 |s moved |by user.|
|000007a0| 09 7d 0d 09 09 64 6f 47 | 72 6f 77 57 69 6e 64 6f |.}...doG|rowWindo|
|000007b0| 77 20 3d 20 31 30 34 3b | 09 09 09 09 09 09 09 09 |w = 104;|........|
|000007c0| 09 09 09 7b 09 09 09 61 | 20 77 69 6e 64 6f 77 20 |...{...a| window |
|000007d0| 77 61 73 20 72 65 2d 73 | 69 7a 65 64 20 62 79 20 |was re-s|ized by |
|000007e0| 74 68 65 20 75 73 65 72 | 09 7d 0d 09 09 64 6f 43 |the user|.}...doC|
|000007f0| 6c 69 63 6b 44 65 73 6b | 20 3d 20 31 30 35 3b 09 |lickDesk| = 105;.|
|00000800| 09 09 09 09 09 09 09 09 | 09 09 09 7b 09 09 09 6d |........|...{...m|
|00000810| 6f 75 73 65 20 63 6c 69 | 63 6b 65 64 20 69 6e 20 |ouse cli|cked in |
|00000820| 74 68 65 20 64 65 73 6b | 20 74 6f 70 09 09 7d 0d |the desk| top..}.|
|00000830| 09 09 64 6f 5a 6f 6f 6d | 57 69 6e 64 6f 77 20 3d |..doZoom|Window =|
|00000840| 20 31 30 36 3b 09 09 09 | 09 09 09 09 09 09 09 09 | 106;...|........|
|00000850| 7b 09 09 09 7a 6f 6f 6d | 20 62 6f 78 20 77 61 73 |{...zoom| box was|
|00000860| 20 63 6c 69 63 6b 65 64 | 20 62 79 20 75 73 65 72 | clicked| by user|
|00000870| 09 09 7d 0d 09 09 64 6f | 53 75 73 70 65 6e 64 20 |..}...do|Suspend |
|00000880| 3d 20 31 30 37 3b 09 09 | 09 09 09 09 09 09 09 09 |= 107;..|........|
|00000890| 09 09 7b 09 09 09 61 70 | 70 6c 2e 20 73 75 73 70 |..{...ap|pl. susp|
|000008a0| 65 6e 64 65 64 20 28 69 | 6e 20 62 61 63 6b 67 72 |ended (i|n backgr|
|000008b0| 6f 75 6e 64 29 09 7d 0d | 09 09 64 6f 52 65 73 75 |ound).}.|..doResu|
|000008c0| 6d 65 20 3d 20 31 30 38 | 3b 09 09 09 09 09 09 09 |me = 108|;.......|
|000008d0| 09 09 09 09 09 7b 09 09 | 09 61 70 70 6c 2e 20 72 |.....{..|.appl. r|
|000008e0| 65 73 75 6d 65 64 20 28 | 6e 6f 77 20 61 63 74 69 |esumed (|now acti|
|000008f0| 76 65 20 61 70 70 6c 2e | 29 09 7d 0d 09 09 69 6e |ve appl.|).}...in|
|00000900| 43 6c 69 63 6b 31 20 3d | 20 31 3b 09 09 09 09 09 |Click1 =| 1;.....|
|00000910| 09 09 09 09 09 09 09 09 | 7b 43 4c 49 43 4b 3a 09 |........|{CLICK:.|
|00000920| 6d 6f 75 73 65 20 73 69 | 6e 67 6c 65 2d 63 6c 69 |mouse si|ngle-cli|
|00000930| 63 6b 20 63 6f 6d 70 6c | 65 74 65 64 09 09 7d 0d |ck compl|eted..}.|
|00000940| 09 09 69 6e 43 6c 69 63 | 6b 32 20 3d 20 32 3b 09 |..inClic|k2 = 2;.|
|00000950| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 09 09 09 |........|....{...|
|00000960| 6d 6f 75 73 65 20 64 6f | 75 62 6c 65 2d 63 6c 69 |mouse do|uble-cli|
|00000970| 63 6b 20 63 6f 6d 70 6c | 65 74 65 64 09 09 7d 0d |ck compl|eted..}.|
|00000980| 09 09 69 6e 43 6c 69 63 | 6b 33 20 3d 20 33 3b 09 |..inClic|k3 = 3;.|
|00000990| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 09 09 09 |........|....{...|
|000009a0| 6d 6f 75 73 65 20 74 72 | 69 70 6c 65 2d 63 6c 69 |mouse tr|iple-cli|
|000009b0| 63 6b 20 63 6f 6d 70 6c | 65 74 65 64 09 09 7d 0d |ck compl|eted..}.|
|000009c0| 09 09 69 6e 43 6c 69 63 | 6b 31 44 72 61 67 20 3d |..inClic|k1Drag =|
|000009d0| 20 2d 31 3b 09 09 09 09 | 09 09 09 09 09 09 09 09 | -1;....|........|
|000009e0| 7b 09 09 09 6d 6f 75 73 | 65 20 73 69 6e 67 6c 65 |{...mous|e single|
|000009f0| 2d 63 6c 69 63 6b 2c 20 | 73 74 69 6c 6c 20 64 72 |-click, |still dr|
|00000a00| 61 67 67 69 6e 67 09 7d | 0d 09 09 69 6e 43 6c 69 |agging.}|...inCli|
|00000a10| 63 6b 32 44 72 61 67 20 | 3d 20 2d 32 3b 09 09 09 |ck2Drag |= -2;...|
|00000a20| 09 09 09 09 09 09 09 09 | 09 7b 09 09 09 6d 6f 75 |........|.{...mou|
|00000a30| 73 65 20 64 6f 75 62 6c | 65 2d 63 6c 69 63 6b 2c |se doubl|e-click,|
|00000a40| 20 73 74 69 6c 6c 20 64 | 72 61 67 67 69 6e 67 09 | still d|ragging.|
|00000a50| 7d 0d 09 09 69 6e 43 6c | 69 63 6b 33 44 72 61 67 |}...inCl|ick3Drag|
|00000a60| 20 3d 20 2d 33 3b 09 09 | 09 09 09 09 09 09 09 09 | = -3;..|........|
|00000a70| 09 09 7b 09 09 09 6d 6f | 75 73 65 20 74 72 69 70 |..{...mo|use trip|
|00000a80| 6c 65 2d 63 6c 69 63 6b | 2c 20 73 74 69 6c 6c 20 |le-click|, still |
|00000a90| 64 72 61 67 67 69 6e 67 | 09 09 7d 0d 09 09 45 6e |dragging|..}...En|
|00000aa0| 74 65 72 4b 65 79 20 3d | 20 63 68 61 72 28 24 30 |terKey =| char($0|
|00000ab0| 33 29 3b 09 09 09 09 09 | 09 09 09 09 09 09 7b 4b |3);.....|......{K|
|00000ac0| 45 59 53 3a 09 09 4b 65 | 79 20 63 68 61 72 61 63 |EYS:..Ke|y charac|
|00000ad0| 74 65 72 73 20 28 41 53 | 43 49 49 29 20 66 6f 72 |ters (AS|CII) for|
|00000ae0| 20 63 6f 6d 6d 6f 6e 09 | 7d 0d 09 09 42 61 63 6b | common.|}...Back|
|00000af0| 53 70 61 63 65 4b 65 79 | 20 3d 20 63 68 61 72 28 |SpaceKey| = char(|
|00000b00| 24 30 38 29 3b 09 09 09 | 09 09 09 09 09 09 7b 09 |$08);...|......{.|
|00000b10| 09 09 09 6e 6f 6e 20 61 | 70 68 61 2d 6e 75 6d 65 |...non a|pha-nume|
|00000b20| 72 69 63 20 6b 65 79 73 | 2e 09 09 7d 0d 09 09 54 |ric keys|...}...T|
|00000b30| 61 62 4b 65 79 20 3d 20 | 63 68 61 72 28 24 30 39 |abKey = |char($09|
|00000b40| 29 3b 09 09 09 09 09 09 | 09 09 09 09 09 7b 09 09 |);......|.....{..|
|00000b50| 09 09 49 6e 20 73 6f 6d | 65 20 63 61 73 65 73 2c |..In som|e cases,|
|00000b60| 20 73 65 76 65 72 61 6c | 20 6b 65 79 73 09 7d 0d | several| keys.}.|
|00000b70| 09 09 52 65 74 75 72 6e | 4b 65 79 20 3d 20 63 68 |..Return|Key = ch|
|00000b80| 61 72 28 24 30 44 29 3b | 09 09 09 09 09 09 09 09 |ar($0D);|........|
|00000b90| 09 09 09 7b 09 09 09 09 | 70 72 6f 64 75 63 65 20 |...{....|produce |
|00000ba0| 74 68 65 20 73 61 6d 65 | 20 41 53 43 49 49 09 09 |the same| ASCII..|
|00000bb0| 7d 0d 09 09 45 73 63 43 | 6c 65 61 72 4b 65 79 20 |}...EscC|learKey |
|00000bc0| 3d 20 63 68 61 72 28 24 | 31 42 29 3b 09 09 09 09 |= char($|1B);....|
|00000bd0| 09 09 09 09 09 09 7b 20 | 20 28 24 31 42 29 09 09 |......{ | ($1B)..|
|00000be0| 09 63 68 61 72 61 63 74 | 65 72 2e 20 20 54 68 65 |.charact|er.  The|
|00000bf0| 79 20 63 61 6e 20 62 65 | 09 09 09 7d 0d 09 09 4c |y can be|...}...L|
|00000c00| 65 66 74 41 72 72 6f 77 | 4b 65 79 20 3d 20 63 68 |eftArrow|Key = ch|
|00000c10| 61 72 28 24 31 43 29 3b | 09 09 09 09 09 09 09 09 |ar($1C);|........|
|00000c20| 09 09 7b 09 09 09 09 64 | 69 66 66 65 72 65 6e 74 |..{....d|ifferent|
|00000c30| 69 61 74 65 64 20 62 79 | 20 75 73 69 6e 67 20 74 |iated by| using t|
|00000c40| 68 65 20 6b 65 79 09 7d | 0d 09 09 52 69 67 68 74 |he key.}|...Right|
|00000c50| 41 72 72 6f 77 4b 65 79 | 20 3d 20 63 68 61 72 28 |ArrowKey| = char(|
|00000c60| 24 31 44 29 3b 09 09 09 | 09 09 09 09 09 09 7b 09 |$1D);...|......{.|
|00000c70| 09 09 09 63 6f 64 65 2c | 20 61 73 20 69 6e 64 69 |...code,| as indi|
|00000c80| 63 61 74 65 64 20 62 65 | 6c 6f 77 2e 09 09 7d 0d |cated be|low...}.|
|00000c90| 09 09 55 70 41 72 72 6f | 77 4b 65 79 20 3d 20 63 |..UpArro|wKey = c|
|00000ca0| 68 61 72 28 24 31 45 29 | 3b 09 09 09 09 09 09 09 |har($1E)|;.......|
|00000cb0| 09 09 09 7b 09 09 09 09 | 53 6f 6d 65 20 6b 65 79 |...{....|Some key|
|00000cc0| 73 20 61 72 65 20 61 76 | 61 69 6c 61 62 6c 65 20 |s are av|ailable |
|00000cd0| 6f 6e 6c 79 09 7d 0d 09 | 09 44 6f 77 6e 41 72 72 |only.}..|.DownArr|
|00000ce0| 6f 77 4b 65 79 20 3d 20 | 63 68 61 72 28 24 31 46 |owKey = |char($1F|
|00000cf0| 29 3b 09 09 09 09 09 09 | 09 09 09 7b 09 09 09 09 |);......|...{....|
|00000d00| 6f 6e 20 61 6e 20 65 78 | 74 65 6e 64 65 64 20 6b |on an ex|tended k|
|00000d10| 65 79 62 6f 61 72 64 2e | 09 09 7d 0d 09 09 48 65 |eyboard.|..}...He|
|00000d20| 6c 70 4b 65 79 20 3d 20 | 63 68 61 72 28 24 30 35 |lpKey = |char($05|
|00000d30| 29 3b 09 09 09 09 09 09 | 09 09 09 09 09 7b 09 09 |);......|.....{..|
|00000d40| 09 09 09 09 09 09 09 09 | 09 09 7d 0d 09 09 48 6f |........|..}...Ho|
|00000d50| 6d 65 4b 65 79 20 3d 20 | 63 68 61 72 28 24 30 31 |meKey = |char($01|
|00000d60| 29 3b 09 09 09 09 09 09 | 09 09 09 09 09 7b 09 09 |);......|.....{..|
|00000d70| 09 09 09 09 09 09 09 09 | 09 09 7d 0d 09 09 44 65 |........|..}...De|
|00000d80| 6c 65 74 65 46 77 64 4b | 65 79 20 3d 20 63 68 61 |leteFwdK|ey = cha|
|00000d90| 72 28 24 37 46 29 3b 09 | 09 09 09 09 09 09 09 09 |r($7F);.|........|
|00000da0| 09 7b 09 09 09 09 09 09 | 09 09 09 09 09 09 7d 0d |.{......|......}.|
|00000db0| 09 09 45 6e 64 4b 65 79 | 20 3d 20 63 68 61 72 28 |..EndKey| = char(|
|00000dc0| 24 30 34 29 3b 09 09 09 | 09 09 09 09 09 09 09 09 |$04);...|........|
|00000dd0| 7b 09 09 09 09 09 09 09 | 09 09 09 09 09 7d 0d 09 |{.......|.....}..|
|00000de0| 09 50 61 67 65 55 70 4b | 65 79 20 3d 20 63 68 61 |.PageUpK|ey = cha|
|00000df0| 72 28 24 30 42 29 3b 09 | 09 09 09 09 09 09 09 09 |r($0B);.|........|
|00000e00| 09 7b 09 09 09 09 09 09 | 09 09 09 09 09 09 7d 0d |.{......|......}.|
|00000e10| 09 09 50 61 67 65 44 6f | 77 6e 4b 65 79 20 3d 20 |..PageDo|wnKey = |
|00000e20| 63 68 61 72 28 24 30 43 | 29 3b 09 09 09 09 09 09 |char($0C|);......|
|00000e30| 09 09 09 09 7b 09 09 09 | 09 09 09 09 09 09 09 09 |....{...|........|
|00000e40| 09 7d 0d 09 09 46 4b 65 | 79 20 3d 20 63 68 61 72 |.}...FKe|y = char|
|00000e50| 28 24 31 30 29 3b 09 09 | 09 09 09 09 09 09 09 09 |($10);..|........|
|00000e60| 09 09 7b 20 20 28 24 31 | 30 29 09 09 46 75 6e 63 |..{  ($1|0)..Func|
|00000e70| 74 69 6f 6e 20 6b 65 79 | 73 20 46 31 20 74 6f 20 |tion key|s F1 to |
|00000e80| 46 31 35 09 09 09 7d 0d | 09 09 45 73 63 4b 65 79 |F15...}.|..EscKey|
|00000e90| 43 6f 64 65 20 3d 20 24 | 33 35 3b 09 09 09 09 09 |Code = $|35;.....|
|00000ea0| 09 09 09 09 09 09 7b 20 | 20 28 24 31 42 29 09 09 |......{ | ($1B)..|
|00000eb0| 4b 45 59 20 43 4f 44 45 | 53 20 75 73 65 64 20 74 |KEY CODE|S used t|
|00000ec0| 6f 20 64 69 66 66 65 72 | 65 6e 74 69 61 74 65 09 |o differ|entiate.|
|00000ed0| 7d 0d 09 09 43 6c 65 61 | 72 4b 65 79 43 6f 64 65 |}...Clea|rKeyCode|
|00000ee0| 20 3d 20 24 34 37 3b 09 | 09 09 09 09 09 09 09 09 | = $47;.|........|
|00000ef0| 09 09 7b 20 20 28 24 31 | 42 29 09 09 09 62 65 74 |..{  ($1|B)...bet|
|00000f00| 77 65 65 6e 20 6b 65 79 | 73 20 77 68 69 63 68 20 |ween key|s which |
|00000f10| 70 72 6f 64 75 63 65 09 | 7d 0d 09 09 46 31 4b 65 |produce.|}...F1Ke|
|00000f20| 79 43 6f 64 65 20 3d 20 | 24 37 41 3b 09 09 09 09 |yCode = |$7A;....|
|00000f30| 09 09 09 09 09 09 09 09 | 7b 09 09 09 09 74 68 65 |........|{....the|
|00000f40| 20 73 61 6d 65 20 6b 65 | 79 20 63 68 61 72 61 63 | same ke|y charac|
|00000f50| 74 65 72 73 2e 09 09 7d | 0d 09 09 46 32 4b 65 79 |ters...}|...F2Key|
|00000f60| 43 6f 64 65 20 3d 20 24 | 37 38 3b 09 09 09 09 09 |Code = $|78;.....|
|00000f70| 09 09 09 09 09 09 09 7b | 09 09 09 09 09 09 09 09 |.......{|........|
|00000f80| 09 09 09 09 7d 0d 09 09 | 46 33 4b 65 79 43 6f 64 |....}...|F3KeyCod|
|00000f90| 65 20 3d 20 24 36 33 3b | 09 09 09 09 09 09 09 09 |e = $63;|........|
|00000fa0| 09 09 09 09 7b 09 09 09 | 09 09 09 09 09 09 09 09 |....{...|........|
|00000fb0| 09 7d 0d 09 09 46 34 4b | 65 79 43 6f 64 65 20 3d |.}...F4K|eyCode =|
|00000fc0| 20 24 37 36 3b 09 09 09 | 09 09 09 09 09 09 09 09 | $76;...|........|
|00000fd0| 09 7b 09 09 09 09 09 09 | 09 09 09 09 09 09 7d 0d |.{......|......}.|
|00000fe0| 09 09 46 35 4b 65 79 43 | 6f 64 65 20 3d 20 24 36 |..F5KeyC|ode = $6|
|00000ff0| 30 3b 09 09 09 09 09 09 | 09 09 09 09 09 09 7b 09 |0;......|......{.|
|00001000| 09 09 09 09 09 09 09 09 | 09 09 09 7d 0d 09 09 46 |........|...}...F|
|00001010| 36 4b 65 79 43 6f 64 65 | 20 3d 20 24 36 31 3b 09 |6KeyCode| = $61;.|
|00001020| 09 09 09 09 09 09 09 09 | 09 09 09 7b 09 09 09 09 |........|...{....|
|00001030| 09 09 09 09 09 09 09 09 | 7d 0d 09 09 46 37 4b 65 |........|}...F7Ke|
|00001040| 79 43 6f 64 65 20 3d 20 | 24 36 32 3b 09 09 09 09 |yCode = |$62;....|
|00001050| 09 09 09 09 09 09 09 09 | 7b 09 09 09 09 09 09 09 |........|{.......|
|00001060| 09 09 09 09 09 7d 0d 09 | 09 46 38 4b 65 79 43 6f |.....}..|.F8KeyCo|
|00001070| 64 65 20 3d 20 24 36 34 | 3b 09 09 09 09 09 09 09 |de = $64|;.......|
|00001080| 09 09 09 09 09 7b 09 09 | 09 09 09 09 09 09 09 09 |.....{..|........|
|00001090| 09 09 7d 0d 09 09 46 39 | 4b 65 79 43 6f 64 65 20 |..}...F9|KeyCode |
|000010a0| 3d 20 24 36 35 3b 09 09 | 09 09 09 09 09 09 09 09 |= $65;..|........|
|000010b0| 09 09 7b 09 09 09 09 09 | 09 09 09 09 09 09 09 7d |..{.....|.......}|
|000010c0| 0d 09 09 46 31 30 4b 65 | 79 43 6f 64 65 20 3d 20 |...F10Ke|yCode = |
|000010d0| 24 36 44 3b 09 09 09 09 | 09 09 09 09 09 09 09 7b |$6D;....|.......{|
|000010e0| 09 09 09 09 09 09 09 09 | 09 09 09 09 7d 0d 09 09 |........|....}...|
|000010f0| 46 31 31 4b 65 79 43 6f | 64 65 20 3d 20 24 36 37 |F11KeyCo|de = $67|
|00001100| 3b 09 09 09 09 09 09 09 | 09 09 09 09 09 7b 09 09 |;.......|.....{..|
|00001110| 09 09 09 09 09 09 09 09 | 09 09 7d 0d 09 09 46 31 |........|..}...F1|
|00001120| 32 4b 65 79 43 6f 64 65 | 20 3d 20 24 36 46 3b 09 |2KeyCode| = $6F;.|
|00001130| 09 09 09 09 09 09 09 09 | 09 09 09 7b 09 09 09 09 |........|...{....|
|00001140| 09 09 09 09 09 09 09 09 | 7d 0d 09 09 46 31 33 4b |........|}...F13K|
|00001150| 65 79 43 6f 64 65 20 3d | 20 24 36 39 3b 09 09 09 |eyCode =| $69;...|
|00001160| 09 09 09 09 09 09 09 09 | 09 7b 09 09 09 09 09 09 |........|.{......|
|00001170| 09 09 09 09 09 09 7d 0d | 09 09 46 31 34 4b 65 79 |......}.|..F14Key|
|00001180| 43 6f 64 65 20 3d 20 24 | 36 42 3b 09 09 09 09 09 |Code = $|6B;.....|
|00001190| 09 09 09 09 09 09 7b 09 | 09 09 09 09 09 09 09 09 |......{.|........|
|000011a0| 09 09 09 7d 0d 09 09 46 | 31 35 4b 65 79 43 6f 64 |...}...F|15KeyCod|
|000011b0| 65 20 3d 20 24 37 31 3b | 09 09 09 09 09 09 09 09 |e = $71;|........|
|000011c0| 09 09 09 09 7b 09 09 09 | 09 09 09 09 09 09 09 09 |....{...|........|
|000011d0| 09 7d 0d 09 09 41 70 70 | 6c 65 43 68 61 72 20 3d |.}...App|leChar =|
|000011e0| 20 63 68 61 72 28 24 31 | 34 29 3b 09 09 09 09 09 | char($1|4);.....|
|000011f0| 09 09 09 09 09 09 7b 4d | 45 4e 55 20 43 48 41 52 |......{M|ENU CHAR|
|00001200| 53 3a 09 41 70 70 6c 65 | 20 63 68 61 72 61 63 74 |S:.Apple| charact|
|00001210| 65 72 09 09 09 09 7d 0d | 09 09 43 68 65 63 6b 43 |er....}.|..CheckC|
|00001220| 68 61 72 20 3d 20 63 68 | 61 72 28 24 31 32 29 3b |har = ch|ar($12);|
|00001230| 09 09 09 09 09 09 09 09 | 09 09 7b 09 09 09 09 43 |........|..{....C|
|00001240| 68 65 63 6b 20 4d 61 72 | 6b 20 63 68 61 72 61 63 |heck Mar|k charac|
|00001250| 74 65 72 09 09 09 7d 0d | 09 09 44 69 61 6d 6f 6e |ter...}.|..Diamon|
|00001260| 64 43 68 61 72 20 3d 20 | 63 68 61 72 28 24 31 33 |dChar = |char($13|
|00001270| 29 3b 09 09 09 09 09 09 | 09 09 09 09 7b 09 09 09 |);......|....{...|
|00001280| 09 44 69 61 6d 6f 6e 64 | 20 63 68 61 72 61 63 74 |.Diamond| charact|
|00001290| 65 72 09 09 09 09 7d 0d | 09 09 44 6f 74 43 68 61 |er....}.|..DotCha|
|000012a0| 72 20 3d 20 63 68 61 72 | 28 24 41 35 29 3b 09 09 |r = char|($A5);..|
|000012b0| 09 09 09 09 09 09 09 09 | 09 7b 09 09 09 09 44 6f |........|.{....Do|
|000012c0| 74 20 28 6f 72 20 62 75 | 6c 6c 65 74 29 20 63 68 |t (or bu|llet) ch|
|000012d0| 61 72 61 63 74 65 72 09 | 09 09 7d 0d 09 09 4e 6f |aracter.|..}...No|
|000012e0| 43 68 61 72 20 3d 20 63 | 68 61 72 28 24 30 30 29 |Char = c|har($00)|
|000012f0| 3b 09 09 09 09 09 09 09 | 09 09 09 09 7b 09 09 09 |;.......|....{...|
|00001300| 09 6e 6f 20 63 68 61 72 | 61 63 74 65 72 09 09 09 |.no char|acter...|
|00001310| 09 09 7d 0d 09 09 61 72 | 72 6f 77 43 75 72 73 6f |..}...ar|rowCurso|
|00001320| 72 20 3d 20 30 3b 09 09 | 09 09 09 09 09 09 09 09 |r = 0;..|........|
|00001330| 09 09 7b 43 55 52 53 4f | 52 53 3a 09 22 61 72 72 |..{CURSO|RS:."arr|
|00001340| 6f 77 22 20 63 75 72 73 | 6f 72 09 09 09 09 09 7d |ow" curs|or.....}|
|00001350| 0d 09 09 47 6f 41 77 61 | 79 20 3d 20 74 72 75 65 |...GoAwa|y = true|
|00001360| 3b 09 09 09 09 09 09 09 | 09 09 09 09 09 09 7b 57 |;.......|......{W|
|00001370| 49 4e 44 4f 57 53 3a 09 | 6e 6f 20 22 63 6c 6f 73 |INDOWS:.|no "clos|
|00001380| 65 20 62 6f 78 22 09 09 | 09 09 09 7d 0d 09 09 4e |e box"..|...}...N|
|00001390| 6f 47 6f 41 77 61 79 20 | 3d 20 66 61 6c 73 65 3b |oGoAway |= false;|
|000013a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 09 09 09 |........|....{...|
|000013b0| 09 77 69 6e 64 6f 77 20 | 68 61 73 20 61 20 22 63 |.window |has a "c|
|000013c0| 6c 6f 73 65 20 62 6f 78 | 22 09 09 7d 0d 09 09 4d |lose box|"..}...M|
|000013d0| 6f 64 61 6c 20 3d 20 74 | 72 75 65 3b 09 09 09 09 |odal = t|rue;....|
|000013e0| 09 09 09 09 09 09 09 09 | 09 7b 09 09 09 09 77 69 |........|.{....wi|
|000013f0| 6e 64 6f 77 20 69 73 20 | 6d 6f 64 61 6c 09 09 09 |ndow is |modal...|
|00001400| 09 7d 0d 09 09 4e 6f 74 | 4d 6f 64 61 6c 20 3d 20 |.}...Not|Modal = |
|00001410| 66 61 6c 73 65 3b 09 09 | 09 09 09 09 09 09 09 09 |false;..|........|
|00001420| 09 09 7b 09 09 09 09 77 | 69 6e 64 6f 77 20 69 73 |..{....w|indow is|
|00001430| 20 6d 6f 64 65 6c 65 73 | 73 09 09 09 09 7d 0d 09 | modeles|s....}..|
|00001440| 09 5a 6f 6f 6d 42 6f 78 | 20 3d 20 38 3b 09 09 09 |.ZoomBox| = 8;...|
|00001450| 09 09 09 09 09 09 09 09 | 09 09 7b 09 09 09 09 77 |........|..{....w|
|00001460| 69 6e 64 6f 77 20 68 61 | 73 20 61 20 22 7a 6f 6f |indow ha|s a "zoo|
|00001470| 6d 20 62 6f 78 22 09 09 | 7d 0d 09 09 44 65 66 61 |m box"..|}...Defa|
|00001480| 75 6c 74 42 75 74 74 6f | 6e 20 3d 20 34 3b 09 09 |ultButto|n = 4;..|
|00001490| 09 09 09 09 09 09 09 09 | 09 09 7b 42 55 54 54 4f |........|..{BUTTO|
|000014a0| 4e 53 3a 09 09 d2 64 65 | 66 61 75 6c 74 d3 20 66 |NS:...de|fault. f|
|000014b0| 6f 72 20 74 68 65 20 77 | 69 6e 64 6f 77 09 09 09 |or the w|indow...|
|000014c0| 7d 0d 09 09 73 65 6c 65 | 63 74 65 64 20 3d 20 74 |}...sele|cted = t|
|000014d0| 72 75 65 3b 09 09 09 09 | 09 09 09 09 09 09 09 09 |rue;....|........|
|000014e0| 09 7b 09 09 09 09 62 75 | 74 74 6f 6e 20 69 73 20 |.{....bu|tton is |
|000014f0| 73 65 6c 65 63 74 65 64 | 20 28 69 2e 65 2e 20 63 |selected| (i.e. c|
|00001500| 68 65 63 6b 65 64 29 7d | 0d 09 09 6e 6f 74 53 65 |hecked)}|...notSe|
|00001510| 6c 65 63 74 65 64 20 3d | 20 66 61 6c 73 65 3b 09 |lected =| false;.|
|00001520| 09 09 09 09 09 09 09 09 | 09 09 7b 09 09 09 09 62 |........|..{....b|
|00001530| 75 74 74 6f 6e 20 69 73 | 20 6e 6f 74 20 73 65 6c |utton is| not sel|
|00001540| 65 63 74 65 64 09 09 09 | 7d 0d 09 09 09 09 09 09 |ected...|}.......|
|00001550| 09 09 09 09 09 09 09 09 | 09 09 09 7b 42 55 54 54 |........|...{BUTT|
|00001560| 4f 4e 53 2c 20 4d 45 4e | 55 53 2c 20 53 43 52 4f |ONS, MEN|US, SCRO|
|00001570| 4c 4c 20 42 41 52 53 20 | 26 20 49 43 4f 4e 53 3a |LL BARS |& ICONS:|
|00001580| 09 7d 0d 09 09 65 6e 61 | 62 6c 65 64 20 3d 20 74 |.}...ena|bled = t|
|00001590| 72 75 65 3b 09 09 09 09 | 09 09 09 09 09 09 09 09 |rue;....|........|
|000015a0| 09 7b 09 09 09 09 6f 62 | 6a 65 63 74 20 69 73 20 |.{....ob|ject is |
|000015b0| 65 6e 61 62 6c 65 64 09 | 09 09 09 7d 0d 09 09 64 |enabled.|...}...d|
|000015c0| 69 73 61 62 6c 65 64 20 | 3d 20 66 61 6c 73 65 3b |isabled |= false;|
|000015d0| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 09 09 09 |........|....{...|
|000015e0| 09 6f 62 6a 65 63 74 20 | 69 73 20 64 69 73 61 62 |.object |is disab|
|000015f0| 6c 65 64 09 09 09 09 7d | 0d 09 09 74 65 42 6f 78 |led....}|...teBox|
|00001600| 4e 6f 43 52 20 3d 20 30 | 3b 09 09 09 09 09 09 09 |NoCR = 0|;.......|
|00001610| 09 09 09 09 09 7b 45 44 | 49 54 20 46 49 45 4c 44 |.....{ED|IT FIELD|
|00001620| 53 3a 09 62 6f 78 20 61 | 72 6f 75 6e 64 20 66 69 |S:.box a|round fi|
|00001630| 65 6c 64 2c 20 6e 6f 20 | 43 52 20 61 6c 6c 6f 77 |eld, no |CR allow|
|00001640| 65 64 09 7d 0d 09 09 74 | 65 42 6f 78 43 52 20 3d |ed.}...t|eBoxCR =|
|00001650| 20 31 3b 09 09 09 09 09 | 09 09 09 09 09 09 09 09 | 1;.....|........|
|00001660| 7b 09 09 09 09 62 6f 78 | 20 61 72 6f 75 6e 64 20 |{....box| around |
|00001670| 66 69 65 6c 64 2c 20 43 | 52 20 61 6c 6c 6f 77 65 |field, C|R allowe|
|00001680| 64 09 7d 0d 09 09 74 65 | 4e 6f 42 6f 78 4e 6f 43 |d.}...te|NoBoxNoC|
|00001690| 52 20 3d 20 32 3b 09 09 | 09 09 09 09 09 09 09 09 |R = 2;..|........|
|000016a0| 09 09 7b 09 09 09 09 6e | 6f 20 62 6f 78 2c 20 6e |..{....n|o box, n|
|000016b0| 6f 20 43 52 20 61 6c 6c | 6f 77 65 64 09 09 09 7d |o CR all|owed...}|
|000016c0| 0d 09 09 74 65 4e 6f 42 | 6f 78 43 52 20 3d 20 33 |...teNoB|oxCR = 3|
|000016d0| 3b 09 09 09 09 09 09 09 | 09 09 09 09 09 7b 09 09 |;.......|.....{..|
|000016e0| 09 09 6e 6f 20 62 6f 78 | 2c 20 43 52 20 61 6c 6c |..no box|, CR all|
|000016f0| 6f 77 65 64 09 09 09 09 | 7d 0d 09 09 74 65 53 65 |owed....|}...teSe|
|00001700| 6c 65 63 74 41 6c 6c 20 | 3d 20 30 3b 09 09 09 09 |lectAll |= 0;....|
|00001710| 09 09 09 09 09 09 09 09 | 09 7b 45 44 49 54 20 46 |........|.{EDIT F|
|00001720| 49 45 4c 44 20 53 45 4c | 45 43 54 49 4f 4e 3a 09 |IELD SEL|ECTION:.|
|00001730| 61 6c 6c 20 6f 66 20 74 | 65 78 74 09 09 09 7d 0d |all of t|ext...}.|
|00001740| 09 09 74 65 53 65 6c 65 | 63 74 53 74 61 72 74 20 |..teSele|ctStart |
|00001750| 3d 20 31 3b 09 09 09 09 | 09 09 09 09 09 09 09 09 |= 1;....|........|
|00001760| 7b 09 09 09 09 09 09 09 | 62 65 67 69 6e 6e 69 6e |{.......|beginnin|
|00001770| 67 20 6f 66 20 74 65 78 | 74 09 7d 0d 09 09 74 65 |g of tex|t.}...te|
|00001780| 53 65 6c 65 63 74 45 6e | 64 20 3d 20 32 3b 09 09 |SelectEn|d = 2;..|
|00001790| 09 09 09 09 09 09 09 09 | 09 09 7b 09 09 09 09 09 |........|..{.....|
|000017a0| 09 09 65 6e 64 20 6f 66 | 20 74 65 78 74 09 09 09 |..end of| text...|
|000017b0| 7d 0d 09 09 74 65 52 65 | 70 6c 61 63 65 20 3d 20 |}...teRe|place = |
|000017c0| 74 72 75 65 3b 09 09 09 | 09 09 09 09 09 09 09 09 |true;...|........|
|000017d0| 09 7b 50 41 53 54 45 20 | 49 4e 54 4f 20 46 49 45 |.{PASTE |INTO FIE|
|000017e0| 4c 44 3a 09 72 65 70 6c | 61 63 65 20 66 69 65 6c |LD:.repl|ace fiel|
|000017f0| 64 20 63 6f 6e 74 65 6e | 74 73 09 7d 0d 09 09 74 |d conten|ts.}...t|
|00001800| 65 49 6e 73 65 72 74 20 | 3d 20 66 61 6c 73 65 3b |eInsert |= false;|
|00001810| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 09 09 09 |........|....{...|
|00001820| 09 09 09 69 6e 73 65 72 | 74 20 74 65 78 74 20 69 |...inser|t text i|
|00001830| 6e 74 6f 20 66 69 65 6c | 64 09 09 7d 0d 09 09 4f |nto fiel|d..}...O|
|00001840| 6b 41 6c 74 42 75 74 20 | 3d 20 31 3b 09 09 09 09 |kAltBut |= 1;....|
|00001850| 09 09 09 09 09 09 09 09 | 09 7b 41 4c 45 52 54 53 |........|.{ALERTS|
|00001860| 3a 09 4f 4b 09 09 09 09 | 28 42 75 74 74 6f 6e 73 |:.OK....|(Buttons|
|00001870| 20 72 65 66 73 29 09 09 | 7d 0d 09 09 43 61 6e 41 | refs)..|}...CanA|
|00001880| 6c 74 42 75 74 20 3d 20 | 32 3b 09 09 09 09 09 09 |ltBut = |2;......|
|00001890| 09 09 09 09 09 09 09 7b | 09 09 09 43 61 6e 63 65 |.......{|...Cance|
|000018a0| 6c 09 09 09 09 09 09 09 | 09 7d 0d 09 09 59 65 73 |l.......|.}...Yes|
|000018b0| 41 6c 74 42 75 74 20 3d | 20 33 3b 09 09 09 09 09 |AltBut =| 3;.....|
|000018c0| 09 09 09 09 09 09 09 09 | 7b 09 09 09 59 65 73 09 |........|{...Yes.|
|000018d0| 09 09 09 09 09 09 09 7d | 0d 09 09 4e 6f 41 6c 74 |.......}|...NoAlt|
|000018e0| 42 75 74 20 3d 20 34 3b | 09 09 09 09 09 09 09 09 |But = 4;|........|
|000018f0| 09 09 09 09 09 7b 09 09 | 09 4e 6f 09 09 09 09 09 |.....{..|.No.....|
|00001900| 09 09 09 09 7d 0d 09 09 | 43 6f 6e 74 41 6c 74 42 |....}...|ContAltB|
|00001910| 75 74 20 3d 20 35 3b 09 | 09 09 09 09 09 09 09 09 |ut = 5;.|........|
|00001920| 09 09 09 09 7b 09 09 09 | 43 6f 6e 74 69 6e 75 65 |....{...|Continue|
|00001930| 09 09 09 09 09 09 09 7d | 0d 09 09 53 6b 69 70 41 |.......}|...SkipA|
|00001940| 6c 74 42 75 74 20 3d 20 | 36 3b 09 09 09 09 09 09 |ltBut = |6;......|
|00001950| 09 09 09 09 09 09 09 7b | 09 09 09 53 6b 69 70 09 |.......{|...Skip.|
|00001960| 09 09 09 09 09 09 09 7d | 0d 09 09 51 75 69 74 41 |.......}|...QuitA|
|00001970| 6c 74 42 75 74 20 3d 20 | 37 3b 09 09 09 09 09 09 |ltBut = |7;......|
|00001980| 09 09 09 09 09 09 09 7b | 09 09 09 51 75 69 74 09 |.......{|...Quit.|
|00001990| 09 09 09 09 09 09 09 7d | 0d 09 09 4e 6f 42 75 74 |.......}|...NoBut|
|000019a0| 74 6f 6e 41 6c 65 72 74 | 20 3d 20 30 3b 09 09 09 |tonAlert| = 0;...|
|000019b0| 09 09 09 09 09 09 09 09 | 09 7b 09 09 09 4e 6f 20 |........|.{...No |
|000019c0| 62 75 74 74 6f 6e 73 09 | 09 28 41 6c 65 72 74 20 |buttons.|.(Alert |
|000019d0| 44 65 66 73 29 09 09 09 | 7d 0d 09 09 4f 6b 41 6c |Defs)...|}...OkAl|
|000019e0| 65 72 74 20 3d 20 31 31 | 31 30 30 3b 09 09 09 09 |ert = 11|100;....|
|000019f0| 09 09 09 09 09 09 09 09 | 7b 09 09 09 4f 4b 20 28 |........|{...OK (|
|00001a00| 64 65 66 61 75 6c 74 29 | 09 09 09 09 09 09 7d 0d |default)|......}.|
|00001a10| 09 09 43 61 6e 41 6c 65 | 72 74 20 3d 20 31 31 32 |..CanAle|rt = 112|
|00001a20| 30 30 3b 09 09 09 09 09 | 09 09 09 09 09 09 09 7b |00;.....|.......{|
|00001a30| 09 09 09 43 61 6e 63 65 | 6c 20 28 64 65 66 61 75 |...Cance|l (defau|
|00001a40| 6c 74 29 09 09 09 09 09 | 7d 0d 09 09 4f 6b 43 61 |lt).....|}...OkCa|
|00001a50| 6e 41 6c 65 72 74 20 3d | 20 32 32 32 31 30 3b 09 |nAlert =| 22210;.|
|00001a60| 09 09 09 09 09 09 09 09 | 09 09 7b 09 09 09 4f 4b |........|..{...OK|
|00001a70| 20 28 64 65 66 61 75 6c | 74 29 20 2b 20 43 61 6e | (defaul|t) + Can|
|00001a80| 63 65 6c 09 09 09 09 7d | 0d 09 09 43 61 6e 4f 6b |cel....}|...CanOk|
|00001a90| 41 6c 65 72 74 20 3d 20 | 32 31 32 31 30 3b 09 09 |Alert = |21210;..|
|00001aa0| 09 09 09 09 09 09 09 09 | 09 7b 09 09 09 4f 4b 20 |........|.{...OK |
|00001ab0| 2b 20 43 61 6e 63 65 6c | 20 28 64 65 66 61 75 6c |+ Cancel| (defaul|
|00001ac0| 74 29 09 09 09 09 7d 0d | 09 09 59 65 73 4e 6f 41 |t)....}.|..YesNoA|
|00001ad0| 6c 65 72 74 20 3d 20 32 | 32 34 33 30 3b 09 09 09 |lert = 2|2430;...|
|00001ae0| 09 09 09 09 09 09 09 09 | 7b 09 09 09 59 65 73 20 |........|{...Yes |
|00001af0| 28 64 65 66 61 75 6c 74 | 29 20 2b 20 4e 6f 09 09 |(default|) + No..|
|00001b00| 09 09 09 7d 0d 09 09 4e | 6f 59 65 73 41 6c 65 72 |...}...N|oYesAler|
|00001b10| 74 20 3d 20 32 31 34 33 | 30 3b 09 09 09 09 09 09 |t = 2143|0;......|
|00001b20| 09 09 09 09 09 7b 09 09 | 09 59 65 73 20 2b 20 4e |.....{..|.Yes + N|
|00001b30| 6f 20 28 64 65 66 61 75 | 6c 74 29 20 09 09 09 09 |o (defau|lt) ....|
|00001b40| 09 7d 0d 09 09 59 65 73 | 4e 6f 43 61 6e 41 6c 65 |.}...Yes|NoCanAle|
|00001b50| 72 74 20 3d 20 33 33 32 | 34 33 3b 09 09 09 09 09 |rt = 332|43;.....|
|00001b60| 09 09 09 09 09 7b 09 09 | 09 59 65 73 20 28 64 65 |.....{..|.Yes (de|
|00001b70| 66 61 75 6c 74 29 20 2b | 20 4e 6f 20 2b 20 43 61 |fault) +| No + Ca|
|00001b80| 6e 63 65 6c 09 09 09 7d | 0d 09 09 4e 6f 59 65 73 |ncel...}|...NoYes|
|00001b90| 43 61 6e 41 6c 65 72 74 | 20 3d 20 33 32 32 34 33 |CanAlert| = 32243|
|00001ba0| 3b 09 09 09 09 09 09 09 | 09 09 09 7b 09 09 09 59 |;.......|...{...Y|
|00001bb0| 65 73 20 2b 20 4e 6f 20 | 28 64 65 66 61 75 6c 74 |es + No |(default|
|00001bc0| 29 20 2b 20 43 61 6e 63 | 65 6c 09 09 09 7d 0d 09 |) + Canc|el...}..|
|00001bd0| 09 4e 6f 49 63 6f 6e 20 | 3d 20 2d 33 32 37 36 38 |.NoIcon |= -32768|
|00001be0| 3b 09 09 09 09 09 09 09 | 09 09 09 09 09 7b 49 43 |;.......|.....{IC|
|00001bf0| 4f 4e 53 3a 09 4e 6f 20 | 69 63 6f 6e 20 75 73 65 |ONS:.No |icon use|
|00001c00| 64 09 09 09 09 09 09 7d | 0d 09 09 6f 6e 20 3d 20 |d......}|...on = |
|00001c10| 74 72 75 65 3b 09 09 09 | 09 09 09 09 09 09 09 09 |true;...|........|
|00001c20| 09 09 09 7b 4d 49 53 43 | 45 4c 4c 41 4e 45 4f 55 |...{MISC|ELLANEOU|
|00001c30| 53 3a 09 09 09 09 09 09 | 09 7d 0d 09 09 6f 66 66 |S:......|.}...off|
|00001c40| 20 3d 20 66 61 6c 73 65 | 3b 09 09 09 09 09 09 09 | = false|;.......|
|00001c50| 09 09 09 09 09 09 09 7b | 09 09 09 09 09 09 09 09 |.......{|........|
|00001c60| 09 09 09 09 7d 0d 09 09 | 5a 6f 6f 6d 41 63 72 6f |....}...|ZoomAcro|
|00001c70| 73 73 20 3d 20 30 3b 09 | 09 09 09 09 09 09 09 09 |ss = 0;.|........|
|00001c80| 09 09 09 7b 5a 4f 4f 4d | 20 4c 49 4e 45 53 3a 09 |...{ZOOM| LINES:.|
|00001c90| 74 72 61 6e 73 69 74 69 | 6f 6e 61 6c 09 09 09 09 |transiti|onal....|
|00001ca0| 09 09 7d 0d 09 09 5a 6f | 6f 6d 49 6e 20 3d 20 2d |..}...Zo|omIn = -|
|00001cb0| 31 3b 09 09 09 09 09 09 | 09 09 09 09 09 09 09 7b |1;......|.......{|
|00001cc0| 09 09 09 09 7a 6f 6f 6d | 20 69 6e 77 61 72 64 20 |....zoom| inward |
|00001cd0| 28 66 75 72 74 68 65 72 | 20 61 77 61 79 29 09 09 |(further| away)..|
|00001ce0| 7d 0d 09 09 5a 6f 6f 6d | 4f 75 74 20 3d 20 31 3b |}...Zoom|Out = 1;|
|00001cf0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7b 09 09 |........|.....{..|
|00001d00| 09 09 7a 6f 6f 6d 20 6f | 75 74 77 61 72 64 20 28 |..zoom o|utward (|
|00001d10| 6e 65 61 72 65 72 29 09 | 09 09 7d 0d 09 09 6e 6f |nearer).|..}...no|
|00001d20| 6e 65 20 3d 20 30 3b 09 | 09 09 09 09 09 09 09 09 |ne = 0;.|........|
|00001d30| 09 09 09 09 09 7b 75 73 | 65 64 20 70 72 69 6d 61 |.....{us|ed prima|
|00001d40| 72 69 6c 79 20 66 6f 72 | 20 70 6f 6c 6c 69 6e 67 |rily for| polling|
|00001d50| 09 09 09 09 09 09 7d 0d | 0d 0d 0d 0d 09 74 79 70 |......}.|.....typ|
|00001d60| 65 0d 09 09 54 50 5f 4d | 6f 72 65 4d 61 73 74 65 |e...TP_M|oreMaste|
|00001d70| 72 73 20 3d 20 30 2e 2e | 31 32 38 3b 09 09 09 09 |rs = 0..|128;....|
|00001d80| 09 09 09 09 09 09 7b 4c | 65 67 61 6c 20 72 61 6e |......{L|egal ran|
|00001d90| 67 65 20 6f 66 20 4d 6f | 72 65 4d 61 73 74 65 72 |ge of Mo|reMaster|
|00001da0| 73 20 69 6e 69 74 69 61 | 6c 69 7a 61 74 69 6f 6e |s initia|lization|
|00001db0| 20 63 79 63 6c 65 73 7d | 0d 09 09 54 50 5f 4d 6e | cycles}|...TP_Mn|
|00001dc0| 75 6d 73 20 3d 20 31 2e | 2e 31 35 3b 09 09 09 09 |ums = 1.|.15;....|
|00001dd0| 09 09 09 09 09 09 09 09 | 7b 4c 65 67 61 6c 20 72 |........|{Legal r|
|00001de0| 61 6e 67 65 20 6f 66 20 | 4d 65 6e 75 20 6e 75 6d |ange of |Menu num|
|00001df0| 62 65 72 73 09 09 09 09 | 09 7d 0d 09 09 54 50 5f |bers....|.}...TP_|
|00001e00| 4d 6e 75 6d 73 30 20 3d | 20 30 2e 2e 31 35 3b 09 |Mnums0 =| 0..15;.|
|00001e10| 09 09 09 09 09 09 09 09 | 09 09 7b 4c 65 67 61 6c |........|..{Legal|
|00001e20| 20 72 61 6e 67 65 20 6f | 66 20 4d 65 6e 75 20 6e | range o|f Menu n|
|00001e30| 75 6d 62 65 72 73 20 28 | 26 20 30 3d 20 61 6c 6c |umbers (|& 0= all|
|00001e40| 20 6d 65 6e 75 73 29 09 | 7d 0d 09 09 54 50 5f 4d | menus).|}...TP_M|
|00001e50| 49 6e 75 6d 73 20 3d 20 | 31 2e 2e 32 35 35 3b 09 |Inums = |1..255;.|
|00001e60| 09 09 09 09 09 09 09 09 | 09 09 7b 4c 65 67 61 6c |........|..{Legal|
|00001e70| 20 72 61 6e 67 65 20 6f | 66 20 4d 65 6e 75 20 69 | range o|f Menu i|
|00001e80| 74 65 6d 20 4e 6f 2e 73 | 09 09 09 09 09 7d 0d 09 |tem No.s|.....}..|
|00001e90| 09 54 50 5f 4d 49 6e 75 | 6d 73 30 20 3d 20 30 2e |.TP_MInu|ms0 = 0.|
|00001ea0| 2e 32 35 35 3b 09 09 09 | 09 09 09 09 09 09 09 09 |.255;...|........|
|00001eb0| 7b 4c 65 67 61 6c 20 72 | 61 6e 67 65 20 6f 66 20 |{Legal r|ange of |
|00001ec0| 4d 65 6e 75 20 69 74 65 | 6d 20 4e 6f 2e 73 20 28 |Menu ite|m No.s (|
|00001ed0| 26 20 30 3d 20 61 6c 6c | 20 69 74 65 6d 73 29 09 |& 0= all| items).|
|00001ee0| 7d 0d 09 09 54 50 5f 57 | 4e 75 6d 73 20 3d 20 31 |}...TP_W|Nums = 1|
|00001ef0| 2e 2e 35 30 3b 09 09 09 | 09 09 09 09 09 09 09 09 |..50;...|........|
|00001f00| 7b 4c 65 67 61 6c 20 72 | 61 6e 67 65 20 6f 66 20 |{Legal r|ange of |
|00001f10| 57 69 6e 64 6f 77 20 6e | 75 6d 62 65 72 73 09 09 |Window n|umbers..|
|00001f20| 09 09 7d 0d 09 09 54 50 | 5f 42 4e 75 6d 73 20 3d |..}...TP|_BNums =|
|00001f30| 20 31 2e 2e 32 35 35 3b | 09 09 09 09 09 09 09 09 | 1..255;|........|
|00001f40| 09 09 09 7b 4c 65 67 61 | 6c 20 72 61 6e 67 65 20 |...{Lega|l range |
|00001f50| 6f 66 20 42 75 74 74 6f | 6e 20 6e 75 6d 62 65 72 |of Butto|n number|
|00001f60| 73 09 09 09 09 09 7d 0d | 09 09 54 50 5f 53 4e 75 |s.....}.|..TP_SNu|
|00001f70| 6d 73 20 3d 20 31 2e 2e | 32 35 35 3b 09 09 09 09 |ms = 1..|255;....|
|00001f80| 09 09 09 09 09 09 09 7b | 4c 65 67 61 6c 20 72 61 |.......{|Legal ra|
|00001f90| 6e 67 65 20 6f 66 20 53 | 63 72 6f 6c 6c 20 42 61 |nge of S|croll Ba|
|00001fa0| 72 20 6e 75 6d 62 65 72 | 73 09 09 09 09 7d 0d 09 |r number|s....}..|
|00001fb0| 09 54 50 5f 54 65 4e 75 | 6d 73 20 3d 20 31 2e 2e |.TP_TeNu|ms = 1..|
|00001fc0| 32 35 35 3b 09 09 09 09 | 09 09 09 09 09 09 09 7b |255;....|.......{|
|00001fd0| 4c 65 67 61 6c 20 72 61 | 6e 67 65 20 6f 66 20 54 |Legal ra|nge of T|
|00001fe0| 65 78 74 20 45 64 69 74 | 69 6e 67 20 46 69 65 6c |ext Edit|ing Fiel|
|00001ff0| 64 20 6e 75 6d 62 65 72 | 73 09 09 7d 0d 09 09 54 |d number|s..}...T|
|00002000| 50 5f 4c 4e 75 6d 73 20 | 3d 20 31 2e 2e 32 35 35 |P_LNums |= 1..255|
|00002010| 3b 09 09 09 09 09 09 09 | 09 09 09 09 7b 4c 65 67 |;.......|....{Leg|
|00002020| 61 6c 20 72 61 6e 67 65 | 20 6f 66 20 4c 69 73 74 |al range| of List|
|00002030| 20 42 6f 78 20 6e 75 6d | 62 65 72 73 09 09 09 09 | Box num|bers....|
|00002040| 7d 0d 09 09 54 50 5f 4c | 6e 4e 75 6d 73 20 3d 20 |}...TP_L|nNums = |
|00002050| 31 2e 2e 33 32 37 36 37 | 3b 09 09 09 09 09 09 09 |1..32767|;.......|
|00002060| 09 09 09 7b 4c 65 67 61 | 6c 20 72 61 6e 67 65 20 |...{Lega|l range |
|00002070| 6f 66 20 4c 69 73 74 20 | 42 6f 78 20 6c 69 6e 65 |of List |Box line|
|00002080| 20 6e 75 6d 62 65 72 73 | 09 09 09 7d 0d 09 09 54 | numbers|...}...T|
|00002090| 50 5f 43 74 4e 75 6d 73 | 20 3d 20 31 2e 2e 32 35 |P_CtNums| = 1..25|
|000020a0| 35 3b 09 09 09 09 09 09 | 09 09 09 09 09 7b 4c 65 |5;......|.....{Le|
|000020b0| 67 61 6c 20 72 61 6e 67 | 65 20 6f 66 20 43 75 72 |gal rang|e of Cur|
|000020c0| 73 6f 72 20 54 61 62 6c | 65 20 6e 75 6d 62 65 72 |sor Tabl|e number|
|000020d0| 73 09 09 09 7d 0d 09 09 | 54 50 5f 43 74 4e 75 6d |s...}...|TP_CtNum|
|000020e0| 73 30 20 3d 20 30 2e 2e | 32 35 35 3b 09 09 09 09 |s0 = 0..|255;....|
|000020f0| 09 09 09 09 09 09 09 7b | 4c 65 67 61 6c 20 72 61 |.......{|Legal ra|
|00002100| 6e 67 65 20 6f 66 20 43 | 75 72 73 6f 72 20 54 61 |nge of C|ursor Ta|
|00002110| 62 6c 65 20 4e 6f 2e 20 | 28 26 20 30 3d 6e 6f 20 |ble No. |(& 0=no |
|00002120| 74 61 62 6c 65 29 09 7d | 0d 09 09 54 50 5f 43 7a |table).}|...TP_Cz|
|00002130| 4e 75 6d 73 20 3d 20 31 | 2e 2e 32 35 35 3b 09 09 |Nums = 1|..255;..|
|00002140| 09 09 09 09 09 09 09 09 | 09 7b 4c 65 67 61 6c 20 |........|.{Legal |
|00002150| 72 61 6e 67 65 20 6f 66 | 20 43 75 72 73 6f 72 20 |range of| Cursor |
|00002160| 5a 6f 6e 65 73 20 69 6e | 20 61 20 63 75 72 73 6f |Zones in| a curso|
|00002170| 72 20 74 61 62 6c 65 09 | 7d 0d 09 09 54 50 5f 41 |r table.|}...TP_A|
|00002180| 6c 74 42 6f 78 42 4e 75 | 6d 73 20 3d 20 31 2e 2e |ltBoxBNu|ms = 1..|
|00002190| 39 3b 09 09 09 09 09 09 | 09 09 09 09 7b 4c 65 67 |9;......|....{Leg|
|000021a0| 61 6c 20 72 61 6e 67 65 | 20 6f 66 20 41 6c 65 72 |al range| of Aler|
|000021b0| 74 20 42 6f 78 20 62 75 | 74 74 6f 6e 20 6e 75 6d |t Box bu|tton num|
|000021c0| 62 65 72 73 09 09 7d 0d | 0d 0d 09 7b 20 2d 20 20 |bers..}.|...{ -  |
|000021d0| 20 2d 20 20 20 2d 20 20 | 20 2d 20 20 20 2d 20 20 | -   -  | -   -  |
|000021e0| 20 2d 20 20 20 2d 20 20 | 20 2d 20 20 20 2d 20 20 | -   -  | -   -  |
|000021f0| 20 2d 20 20 20 54 68 65 | 73 65 20 72 65 63 6f 72 | -   The|se recor|
|00002200| 64 20 22 74 79 70 65 73 | 22 20 61 72 65 20 75 73 |d "types|" are us|
|00002210| 65 64 20 66 6f 72 20 69 | 6e 66 6f 72 6d 61 74 69 |ed for i|nformati|
|00002220| 6f 6e 20 74 72 61 6e 73 | 66 65 72 20 62 65 74 77 |on trans|fer betw|
|00002230| 65 65 6e 20 20 20 2d 20 | 20 20 2d 20 20 20 2d 20 |een   - |  -   - |
|00002240| 20 20 2d 20 20 20 2d 20 | 20 20 2d 20 20 20 2d 20 |  -   - |  -   - |
|00002250| 20 20 2d 20 20 20 2d 20 | 20 20 2d 20 20 20 2d 09 |  -   - |  -   -.|
|00002260| 7d 0d 09 7b 09 09 20 09 | 09 09 09 09 09 09 79 6f |}..{.. .|......yo|
|00002270| 75 72 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 61 |ur appli|cation a|
|00002280| 6e 64 20 54 6f 6f 6c 73 | 20 50 6c 75 73 20 6c 69 |nd Tools| Plus li|
|00002290| 62 72 61 72 69 65 73 2e | 09 09 09 09 09 09 09 09 |braries.|........|
|000022a0| 09 7d 0d 0d 09 7b 3d 20 | 50 6f 6c 6c 69 6e 67 20 |.}...{= |Polling |
|000022b0| 72 65 63 6f 72 64 27 73 | 20 22 65 76 65 6e 74 20 |record's| "event |
|000022c0| 6d 6f 64 69 66 69 65 72 | 73 22 20 69 6e 66 6f 7d |modifier|s" info}|
|000022d0| 0d 09 09 54 50 4d 6f 64 | 69 66 69 65 72 73 52 65 |...TPMod|ifiersRe|
|000022e0| 63 20 3d 20 70 61 63 6b | 65 64 20 72 65 63 6f 72 |c = pack|ed recor|
|000022f0| 64 09 09 09 09 09 09 09 | 09 7b 54 68 69 73 20 76 |d.......|.{This v|
|00002300| 61 72 69 61 62 6c 65 20 | 72 65 63 6f 72 64 20 63 |ariable |record c|
|00002310| 6f 6e 74 61 69 6e 73 20 | 61 6e 20 65 76 65 6e 74 |ontains |an event|
|00002320| 27 73 09 09 7d 0d 09 09 | 09 09 63 61 73 65 20 69 |'s..}...|..case i|
|00002330| 6e 74 65 67 65 72 20 6f | 66 09 09 09 09 09 09 09 |nteger o|f.......|
|00002340| 09 09 09 09 7b 09 22 6d | 6f 64 69 66 69 65 72 73 |....{."m|odifiers|
|00002350| 22 20 69 6e 20 32 20 66 | 6f 72 6d 61 74 73 c9 09 |" in 2 f|ormats..|
|00002360| 09 09 09 09 7d 0d 09 09 | 09 09 09 30 3a 20 28 09 |....}...|...0: (.|
|00002370| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7b 09 a5 |........|.....{..|
|00002380| 20 4d 61 63 69 6e 74 6f | 73 68 20 45 76 65 6e 74 | Macinto|sh Event|
|00002390| 3a 09 09 09 09 09 09 09 | 7d 0d 09 09 09 09 09 09 |:.......|}.......|
|000023a0| 09 4e 75 6d 3a 20 69 6e | 74 65 67 65 72 09 09 09 |.Num: in|teger...|
|000023b0| 09 09 09 09 09 09 09 09 | 7b 09 09 69 6e 74 65 67 |........|{..integ|
|000023c0| 65 72 20 28 62 69 74 20 | 6f 70 65 72 61 74 69 6f |er (bit |operatio|
|000023d0| 6e 73 20 72 65 71 75 69 | 72 65 64 29 09 09 09 7d |ns requi|red)...}|
|000023e0| 0d 09 09 09 09 09 29 3b | 09 09 09 09 09 09 09 09 |......);|........|
|000023f0| 09 09 09 09 09 09 09 7b | 09 09 09 09 09 09 09 09 |.......{|........|
|00002400| 09 09 09 09 7d 0d 09 09 | 09 09 09 31 3a 20 28 09 |....}...|...1: (.|
|00002410| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7b 09 a5 |........|.....{..|
|00002420| 20 4d 6f 64 69 66 69 65 | 72 20 69 6e 74 65 67 65 | Modifie|r intege|
|00002430| 72 20 70 61 72 73 65 64 | 20 69 6e 74 6f 20 63 6f |r parsed| into co|
|00002440| 6d 70 6f 6e 65 6e 74 73 | 3a 09 7d 0d 09 09 09 09 |mponents|:.}.....|
|00002450| 09 09 09 62 69 74 31 35 | 2c 20 62 69 74 31 34 2c |...bit15|, bit14,|
|00002460| 20 62 69 74 31 33 3a 20 | 62 6f 6f 6c 65 61 6e 3b | bit13: |boolean;|
|00002470| 09 09 09 09 09 09 09 7b | 09 09 28 72 65 73 65 72 |.......{|..(reser|
|00002480| 76 65 64 20 62 69 74 73 | 29 09 09 09 09 09 09 09 |ved bits|).......|
|00002490| 7d 0d 09 09 09 09 09 09 | 09 43 6f 6e 74 72 6f 6c |}.......|.Control|
|000024a0| 4b 65 79 3a 20 62 6f 6f | 6c 65 61 6e 3b 09 09 09 |Key: boo|lean;...|
|000024b0| 09 09 09 09 09 09 7b 09 | 09 43 6f 6e 74 72 6f 6c |......{.|.Control|
|000024c0| 20 6b 65 79 20 77 61 73 | 20 64 6f 77 6e 20 61 74 | key was| down at|
|000024d0| 20 65 76 65 6e 74 20 28 | 3d 31 29 09 09 7d 0d 09 | event (|=1)..}..|
|000024e0| 09 09 09 09 09 09 4f 70 | 74 69 6f 6e 4b 65 79 3a |......Op|tionKey:|
|000024f0| 20 62 6f 6f 6c 65 61 6e | 3b 09 09 09 09 09 09 09 | boolean|;.......|
|00002500| 09 09 7b 09 09 4f 70 74 | 69 6f 6e 20 6b 65 79 20 |..{..Opt|ion key |
|00002510| 77 61 73 20 64 6f 77 6e | 20 61 74 20 65 76 65 6e |was down| at even|
|00002520| 74 20 28 3d 31 29 09 09 | 7d 0d 09 09 09 09 09 09 |t (=1)..|}.......|
|00002530| 09 43 61 70 73 4c 6f 63 | 6b 3a 20 62 6f 6f 6c 65 |.CapsLoc|k: boole|
|00002540| 61 6e 3b 09 09 09 09 09 | 09 09 09 09 7b 09 09 43 |an;.....|....{..C|
|00002550| 61 70 73 20 4c 6f 63 6b | 20 77 61 73 20 64 6f 77 |aps Lock| was dow|
|00002560| 6e 20 61 74 20 65 76 65 | 6e 74 20 28 3d 31 29 09 |n at eve|nt (=1).|
|00002570| 09 7d 0d 09 09 09 09 09 | 09 09 53 68 69 66 74 4b |.}......|..ShiftK|
|00002580| 65 79 3a 20 62 6f 6f 6c | 65 61 6e 3b 09 09 09 09 |ey: bool|ean;....|
|00002590| 09 09 09 09 09 7b 09 09 | 53 68 69 66 74 20 6b 65 |.....{..|Shift ke|
|000025a0| 79 20 77 61 73 20 64 6f | 77 6e 20 61 74 20 65 76 |y was do|wn at ev|
|000025b0| 65 6e 74 20 28 3d 31 29 | 09 09 7d 0d 09 09 09 09 |ent (=1)|..}.....|
|000025c0| 09 09 09 43 6d 64 4b 65 | 79 3a 20 62 6f 6f 6c 65 |...CmdKe|y: boole|
|000025d0| 61 6e 3b 09 09 09 09 09 | 09 09 09 09 7b 09 09 43 |an;.....|....{..C|
|000025e0| 6f 6d 6d 61 6e 64 20 6b | 65 79 20 77 61 73 20 64 |ommand k|ey was d|
|000025f0| 6f 77 6e 20 61 74 20 65 | 76 65 6e 74 20 28 3d 31 |own at e|vent (=1|
|00002600| 29 09 7d 0d 09 09 09 09 | 09 09 09 4d 6f 75 73 65 |).}.....|...Mouse|
|00002610| 55 70 3a 20 62 6f 6f 6c | 65 61 6e 3b 09 09 09 09 |Up: bool|ean;....|
|00002620| 09 09 09 09 09 7b 09 09 | 4d 6f 75 73 65 20 62 75 |.....{..|Mouse bu|
|00002630| 74 74 6f 6e 20 77 61 73 | 20 55 50 20 61 74 20 65 |tton was| UP at e|
|00002640| 76 65 6e 74 20 28 3d 31 | 29 09 09 7d 0d 09 09 09 |vent (=1|)..}....|
|00002650| 09 09 09 09 62 69 74 36 | 2c 20 62 69 74 35 2c 20 |....bit6|, bit5, |
|00002660| 62 69 74 34 2c 20 62 69 | 74 33 2c 20 62 69 74 32 |bit4, bi|t3, bit2|
|00002670| 2c 20 62 69 74 31 2c 20 | 62 69 74 30 3a 20 62 6f |, bit1, |bit0: bo|
|00002680| 6f 6c 65 61 6e 09 09 09 | 7b 09 09 28 72 65 73 65 |olean...|{..(rese|
|00002690| 72 76 65 64 20 62 69 74 | 73 29 09 09 09 09 09 09 |rved bit|s)......|
|000026a0| 09 7d 0d 09 09 09 09 09 | 29 3b 09 09 09 09 09 09 |.}......|);......|
|000026b0| 09 09 09 09 09 09 09 09 | 09 7b 09 09 09 09 09 09 |........|.{......|
|000026c0| 09 09 09 09 09 09 7d 0d | 09 09 09 65 6e 64 3b 0d |......}.|...end;.|
|000026d0| 09 7b 3d 20 50 6f 6c 6c | 69 6e 67 20 72 65 63 6f |.{= Poll|ing reco|
|000026e0| 72 64 27 73 20 22 62 75 | 74 74 6f 6e 22 20 69 6e |rd's "bu|tton" in|
|000026f0| 66 6f 7d 0d 09 09 54 50 | 50 6f 6c 6c 42 75 74 74 |fo}...TP|PollButt|
|00002700| 6f 6e 52 65 63 20 3d 20 | 72 65 63 6f 72 64 0d 09 |onRec = |record..|
|00002710| 09 09 09 4e 75 6d 3a 20 | 69 6e 74 65 67 65 72 3b |...Num: |integer;|
|00002720| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 42 75 74 |........|....{But|
|00002730| 74 6f 6e 20 6e 75 6d 62 | 65 72 09 09 09 09 09 09 |ton numb|er......|
|00002740| 09 09 09 7d 0d 09 09 09 | 09 44 6f 75 62 6c 65 43 |...}....|.DoubleC|
|00002750| 6c 69 63 6b 3a 20 62 6f | 6f 6c 65 61 6e 09 09 09 |lick: bo|olean...|
|00002760| 09 09 09 09 09 09 09 7b | 44 69 64 20 61 20 64 6f |.......{|Did a do|
|00002770| 75 62 6c 65 2d 63 6c 69 | 63 6b 20 6f 63 63 75 72 |uble-cli|ck occur|
|00002780| 3f 09 09 09 09 09 09 7d | 0d 09 09 09 65 6e 64 3b |?......}|....end;|
|00002790| 0d 09 7b 3d 20 50 6f 6c | 6c 69 6e 67 20 72 65 63 |..{= Pol|ling rec|
|000027a0| 6f 72 64 27 73 20 22 73 | 63 72 6f 6c 6c 20 62 61 |ord's "s|croll ba|
|000027b0| 72 22 20 69 6e 66 6f 7d | 0d 09 09 54 50 50 6f 6c |r" info}|...TPPol|
|000027c0| 6c 53 63 72 6f 6c 6c 42 | 61 72 52 65 63 20 3d 20 |lScrollB|arRec = |
|000027d0| 72 65 63 6f 72 64 0d 09 | 09 09 09 4e 75 6d 3a 20 |record..|...Num: |
|000027e0| 69 6e 74 65 67 65 72 3b | 09 09 09 09 09 09 09 09 |integer;|........|
|000027f0| 09 09 09 09 7b 53 63 72 | 6f 6c 6c 20 62 61 72 20 |....{Scr|oll bar |
|00002800| 6e 75 6d 62 65 72 09 09 | 09 09 09 09 09 09 7d 0d |number..|......}.|
|00002810| 09 09 09 09 50 61 72 74 | 3a 20 69 6e 74 65 67 65 |....Part|: intege|
|00002820| 72 09 09 09 09 09 09 09 | 09 09 09 09 09 7b 53 63 |r.......|.....{Sc|
|00002830| 72 6f 6c 6c 20 62 61 72 | 27 73 20 70 61 72 74 09 |roll bar|'s part.|
|00002840| 09 09 09 09 09 09 09 7d | 0d 09 09 09 65 6e 64 3b |.......}|....end;|
|00002850| 0d 09 7b 3d 20 50 6f 6c | 6c 69 6e 67 20 72 65 63 |..{= Pol|ling rec|
|00002860| 6f 72 64 27 73 20 22 6c | 69 73 74 20 62 6f 78 22 |ord's "l|ist box"|
|00002870| 20 69 6e 66 6f 7d 0d 09 | 09 54 50 50 6f 6c 6c 4c | info}..|.TPPollL|
|00002880| 69 73 74 42 6f 78 52 65 | 63 20 3d 20 72 65 63 6f |istBoxRe|c = reco|
|00002890| 72 64 0d 09 09 09 09 4e | 75 6d 3a 20 69 6e 74 65 |rd.....N|um: inte|
|000028a0| 67 65 72 3b 09 09 09 09 | 09 09 09 09 09 09 09 09 |ger;....|........|
|000028b0| 7b 4c 69 73 74 20 62 6f | 78 20 6e 75 6d 62 65 72 |{List bo|x number|
|000028c0| 09 09 09 09 09 09 09 09 | 7d 0d 09 09 09 09 44 6f |........|}.....Do|
|000028d0| 75 62 6c 65 43 6c 69 63 | 6b 3a 20 62 6f 6f 6c 65 |ubleClic|k: boole|
|000028e0| 61 6e 09 09 09 09 09 09 | 09 09 09 09 7b 44 69 64 |an......|....{Did|
|000028f0| 20 61 20 64 6f 75 62 6c | 65 2d 63 6c 69 63 6b 20 | a doubl|e-click |
|00002900| 6f 63 63 75 72 3f 09 09 | 09 09 09 09 7d 0d 09 09 |occur?..|....}...|
|00002910| 09 65 6e 64 3b 0d 09 7b | 3d 20 50 6f 6c 6c 69 6e |.end;..{|= Pollin|
|00002920| 67 20 72 65 63 6f 72 64 | 27 73 20 22 6d 65 6e 75 |g record|'s "menu|
|00002930| 22 20 69 6e 66 6f 7d 0d | 09 09 54 50 50 6f 6c 6c |" info}.|..TPPoll|
|00002940| 4d 65 6e 75 52 65 63 20 | 3d 20 72 65 63 6f 72 64 |MenuRec |= record|
|00002950| 0d 09 09 09 09 4e 75 6d | 3a 20 69 6e 74 65 67 65 |.....Num|: intege|
|00002960| 72 3b 09 09 09 09 09 09 | 09 09 09 09 09 09 7b 4d |r;......|......{M|
|00002970| 65 6e 75 20 6e 75 6d 62 | 65 72 09 09 09 09 09 09 |enu numb|er......|
|00002980| 09 09 09 7d 0d 09 09 09 | 09 49 74 65 6d 3a 20 69 |...}....|.Item: i|
|00002990| 6e 74 65 67 65 72 09 09 | 09 09 09 09 09 09 09 09 |nteger..|........|
|000029a0| 09 09 7b 4d 65 6e 75 20 | 69 74 65 6d 20 6e 75 6d |..{Menu |item num|
|000029b0| 62 65 72 09 09 09 09 09 | 09 09 09 7d 0d 09 09 09 |ber.....|...}....|
|000029c0| 65 6e 64 3b 0d 09 7b 3d | 20 50 6f 6c 6c 69 6e 67 |end;..{=| Polling|
|000029d0| 20 72 65 63 6f 72 64 27 | 73 20 22 6b 65 79 2d 73 | record'|s "key-s|
|000029e0| 74 72 6f 6b 65 22 20 69 | 6e 66 6f 7d 0d 09 09 54 |troke" i|nfo}...T|
|000029f0| 50 50 6f 6c 6c 4b 65 79 | 52 65 63 20 3d 20 70 61 |PPollKey|Rec = pa|
|00002a00| 63 6b 65 64 20 72 65 63 | 6f 72 64 0d 09 09 09 09 |cked rec|ord.....|
|00002a10| 43 6f 64 65 3a 20 69 6e | 74 65 67 65 72 3b 09 09 |Code: in|teger;..|
|00002a20| 09 09 09 09 09 09 09 09 | 09 09 7b 4c 6f 67 69 63 |........|..{Logic|
|00002a30| 61 6c 20 6b 65 79 20 6e | 75 6d 62 65 72 20 6f 66 |al key n|umber of|
|00002a40| 20 74 68 65 20 74 79 70 | 65 64 20 6b 65 79 09 09 | the typ|ed key..|
|00002a50| 09 7d 0d 09 09 09 09 43 | 68 72 3a 20 63 68 61 72 |.}.....C|hr: char|
|00002a60| 3b 09 09 09 09 09 09 09 | 09 09 09 09 09 09 7b 41 |;.......|......{A|
|00002a70| 53 43 49 49 20 63 68 61 | 72 61 63 74 65 72 20 67 |SCII cha|racter g|
|00002a80| 65 6e 65 72 61 74 65 64 | 20 62 79 20 74 79 70 65 |enerated| by type|
|00002a90| 64 20 6b 65 79 09 09 7d | 0d 09 09 09 09 55 6e 75 |d key..}|.....Unu|
|00002aa0| 73 65 64 3a 20 62 79 74 | 65 09 09 09 09 09 09 09 |sed: byt|e.......|
|00002ab0| 09 09 09 09 09 7b 20 28 | 72 65 73 65 72 76 65 64 |.....{ (|reserved|
|00002ac0| 20 62 79 74 65 29 09 09 | 09 09 09 09 09 09 7d 0d | byte)..|......}.|
|00002ad0| 09 09 09 65 6e 64 3b 0d | 09 7b 3d 20 50 6f 6c 6c |...end;.|.{= Poll|
|00002ae0| 69 6e 67 20 72 65 63 6f | 72 64 27 73 20 22 6d 6f |ing reco|rd's "mo|
|00002af0| 75 73 65 20 6c 6f 63 61 | 74 69 6f 6e 20 61 6e 64 |use loca|tion and|
|00002b00| 20 74 69 6d 65 22 20 69 | 6e 66 6f 20 66 6f 72 20 | time" i|nfo for |
|00002b10| 6d 6f 75 73 65 2d 64 6f | 77 6e 20 61 6e 64 20 6d |mouse-do|wn and m|
|00002b20| 6f 75 73 65 2d 75 70 20 | 65 76 65 6e 74 73 7d 0d |ouse-up |events}.|
|00002b30| 09 09 54 50 50 6f 6c 6c | 4d 6f 75 73 65 50 6f 69 |..TPPoll|MousePoi|
|00002b40| 6e 74 52 65 63 20 3d 20 | 72 65 63 6f 72 64 0d 09 |ntRec = |record..|
|00002b50| 09 09 09 57 68 65 72 65 | 3a 20 70 6f 69 6e 74 3b |...Where|: point;|
|00002b60| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 45 76 65 |........|....{Eve|
|00002b70| 6e 74 20 6c 6f 63 61 74 | 69 6f 6e 20 69 6e 20 6c |nt locat|ion in l|
|00002b80| 6f 63 61 6c 20 63 6f 2d | 6f 72 64 69 6e 61 74 65 |ocal co-|ordinate|
|00002b90| 73 09 09 09 7d 0d 09 09 | 09 09 57 68 65 6e 3a 20 |s...}...|..When: |
|00002ba0| 6c 6f 6e 67 69 6e 74 3b | 09 09 09 09 09 09 09 09 |longint;|........|
|00002bb0| 09 09 09 09 7b 45 76 65 | 6e 74 20 74 69 6d 65 20 |....{Eve|nt time |
|00002bc0| 69 6e 20 63 6c 6f 63 6b | 20 74 69 63 6b 73 20 66 |in clock| ticks f|
|00002bd0| 72 6f 6d 20 62 6f 6f 74 | 20 28 31 2f 36 30 20 73 |rom boot| (1/60 s|
|00002be0| 65 63 29 09 7d 0d 09 09 | 09 09 4d 6f 64 69 66 69 |ec).}...|..Modifi|
|00002bf0| 65 72 73 3a 20 54 50 4d | 6f 64 69 66 69 65 72 73 |ers: TPM|odifiers|
|00002c00| 52 65 63 09 09 09 09 09 | 09 09 09 09 7b 45 76 65 |Rec.....|....{Eve|
|00002c10| 6e 74 20 6d 6f 64 69 66 | 69 65 72 73 09 09 09 09 |nt modif|iers....|
|00002c20| 09 09 09 09 7d 0d 09 09 | 09 65 6e 64 3b 0d 09 7b |....}...|.end;..{|
|00002c30| 3d 20 50 6f 6c 6c 69 6e | 67 20 72 65 63 6f 72 64 |= Pollin|g record|
|00002c40| 27 73 20 22 6d 6f 75 73 | 65 20 63 6c 69 63 6b 2f |'s "mous|e click/|
|00002c50| 64 72 61 67 22 20 69 6e | 66 6f 7d 0d 09 09 54 50 |drag" in|fo}...TP|
|00002c60| 50 6f 6c 6c 4d 6f 75 73 | 65 52 65 63 20 3d 20 72 |PollMous|eRec = r|
|00002c70| 65 63 6f 72 64 0d 09 09 | 09 09 57 68 61 74 3a 20 |ecord...|..What: |
|00002c80| 69 6e 74 65 67 65 72 3b | 09 09 09 09 09 09 09 09 |integer;|........|
|00002c90| 09 09 09 09 7b 57 68 61 | 74 20 74 79 70 65 20 6f |....{Wha|t type o|
|00002ca0| 66 20 6d 6f 75 73 65 20 | 65 76 65 6e 74 3f 20 28 |f mouse |event? (|
|00002cb0| 63 6c 69 63 6b 20 6f 72 | 20 64 72 61 67 29 09 09 |click or| drag)..|
|00002cc0| 7d 0d 09 09 09 09 44 6f | 77 6e 3a 20 61 72 72 61 |}.....Do|wn: arra|
|00002cd0| 79 5b 31 2e 2e 33 5d 20 | 6f 66 20 54 50 50 6f 6c |y[1..3] |of TPPol|
|00002ce0| 6c 4d 6f 75 73 65 50 6f | 69 6e 74 52 65 63 3b 09 |lMousePo|intRec;.|
|00002cf0| 09 09 09 7b 57 68 65 72 | 65 20 26 20 77 68 65 6e |...{Wher|e & when|
|00002d00| 20 64 69 64 20 74 68 65 | 20 6d 6f 75 73 65 2d 64 | did the| mouse-d|
|00002d10| 6f 77 6e 20 6f 63 63 75 | 72 09 09 7d 0d 09 09 09 |own occu|r..}....|
|00002d20| 09 55 70 3a 20 61 72 72 | 61 79 5b 31 2e 2e 33 5d |.Up: arr|ay[1..3]|
|00002d30| 20 6f 66 20 54 50 50 6f | 6c 6c 4d 6f 75 73 65 50 | of TPPo|llMouseP|
|00002d40| 6f 69 6e 74 52 65 63 3b | 09 09 09 09 09 7b 57 68 |ointRec;|.....{Wh|
|00002d50| 65 72 65 20 26 20 77 68 | 65 6e 20 64 69 64 20 74 |ere & wh|en did t|
|00002d60| 68 65 20 6d 6f 75 73 65 | 2d 75 70 20 6f 63 63 75 |he mouse|-up occu|
|00002d70| 72 09 09 09 7d 0d 09 09 | 09 09 57 68 65 72 65 3a |r...}...|..Where:|
|00002d80| 20 70 6f 69 6e 74 09 09 | 09 09 09 09 09 09 09 09 | point..|........|
|00002d90| 09 09 7b 43 75 72 72 65 | 6e 74 20 6d 6f 75 73 65 |..{Curre|nt mouse|
|00002da0| 20 6c 6f 63 61 74 69 6f | 6e 20 69 6e 20 6c 6f 63 | locatio|n in loc|
|00002db0| 61 6c 20 63 6f 2d 6f 72 | 64 69 6e 61 74 65 73 09 |al co-or|dinates.|
|00002dc0| 7d 0d 09 09 09 65 6e 64 | 3b 0d 09 7b 3d 20 50 4f |}....end|;..{= PO|
|00002dd0| 4c 4c 49 4e 47 20 72 65 | 63 6f 72 64 20 66 6f 72 |LLING re|cord for|
|00002de0| 20 54 6f 6f 6c 73 20 50 | 6c 75 73 7d 0d 09 09 54 | Tools P|lus}...T|
|00002df0| 50 50 6f 6c 6c 50 6f 69 | 6e 74 65 72 20 3d 20 5e |PPollPoi|nter = ^|
|00002e00| 54 50 50 6f 6c 6c 52 65 | 63 6f 72 64 3b 09 09 09 |TPPollRe|cord;...|
|00002e10| 09 09 09 09 09 09 7b 50 | 6f 69 6e 74 65 72 20 74 |......{P|ointer t|
|00002e20| 6f 20 61 20 50 6f 6c 6c | 69 6e 67 20 72 65 63 6f |o a Poll|ing reco|
|00002e30| 72 64 09 09 09 09 09 09 | 7d 0d 0d 09 09 54 50 50 |rd......|}....TPP|
|00002e40| 6f 6c 6c 52 65 63 6f 72 | 64 20 3d 20 72 65 63 6f |ollRecor|d = reco|
|00002e50| 72 64 09 09 09 09 09 09 | 09 09 09 09 7b 54 6f 6f |rd......|....{Too|
|00002e60| 6c 73 20 50 6c 75 73 20 | 50 6f 6c 6c 69 6e 67 20 |ls Plus |Polling |
|00002e70| 72 65 63 6f 72 64 c9 09 | 09 09 09 09 09 7d 0d 09 |record..|.....}..|
|00002e80| 09 09 09 57 68 61 74 3a | 20 69 6e 74 65 67 65 72 |...What:| integer|
|00002e90| 3b 09 09 09 09 09 09 09 | 09 09 09 09 09 7b 57 68 |;.......|.....{Wh|
|00002ea0| 61 74 20 74 79 70 65 20 | 6f 66 20 65 76 65 6e 74 |at type |of event|
|00002eb0| 20 68 61 73 20 6f 63 63 | 75 72 72 65 64 3f 09 09 | has occ|urred?..|
|00002ec0| 09 09 7d 0d 09 09 09 09 | 57 69 6e 64 6f 77 3a 20 |..}.....|Window: |
|00002ed0| 69 6e 74 65 67 65 72 3b | 09 09 09 09 09 09 09 09 |integer;|........|
|00002ee0| 09 09 09 7b 57 69 6e 64 | 6f 77 20 6e 75 6d 62 65 |...{Wind|ow numbe|
|00002ef0| 72 20 6f 66 20 74 68 65 | 20 65 76 65 6e 74 09 09 |r of the| event..|
|00002f00| 09 09 09 7d 0d 09 09 09 | 09 42 75 74 74 6f 6e 3a |...}....|.Button:|
|00002f10| 20 54 50 50 6f 6c 6c 42 | 75 74 74 6f 6e 52 65 63 | TPPollB|uttonRec|
|00002f20| 3b 09 09 09 09 09 09 09 | 09 09 7b 42 75 74 74 6f |;.......|..{Butto|
|00002f30| 6e 20 6e 75 6d 62 65 72 | 2f 64 6f 75 62 6c 65 2d |n number|/double-|
|00002f40| 63 6c 69 63 6b 20 73 74 | 61 74 75 73 09 09 09 09 |click st|atus....|
|00002f50| 7d 0d 09 09 09 09 53 63 | 72 6f 6c 6c 42 61 72 3a |}.....Sc|rollBar:|
|00002f60| 20 54 50 50 6f 6c 6c 53 | 63 72 6f 6c 6c 42 61 72 | TPPollS|crollBar|
|00002f70| 52 65 63 3b 09 09 09 09 | 09 09 09 09 7b 53 63 72 |Rec;....|....{Scr|
|00002f80| 6f 6c 6c 20 62 61 72 20 | 6e 75 6d 62 65 72 2f 73 |oll bar |number/s|
|00002f90| 63 72 6f 6c 6c 20 62 61 | 72 20 70 61 72 74 09 09 |croll ba|r part..|
|00002fa0| 09 09 7d 0d 09 09 09 09 | 46 69 65 6c 64 3a 20 69 |..}.....|Field: i|
|00002fb0| 6e 74 65 67 65 72 3b 09 | 09 09 09 09 09 09 09 09 |nteger;.|........|
|00002fc0| 09 09 09 7b 46 69 65 6c | 64 20 6e 75 6d 62 65 72 |...{Fiel|d number|
|00002fd0| 20 6f 66 20 65 76 65 6e | 74 09 09 09 09 09 09 09 | of even|t.......|
|00002fe0| 7d 0d 09 09 09 09 4c 69 | 73 74 42 6f 78 3a 20 54 |}.....Li|stBox: T|
|00002ff0| 50 50 6f 6c 6c 4c 69 73 | 74 42 6f 78 52 65 63 3b |PPollLis|tBoxRec;|
|00003000| 09 09 09 09 09 09 09 09 | 7b 4c 69 73 74 20 62 6f |........|{List bo|
|00003010| 78 20 6e 75 6d 62 65 72 | 2f 64 6f 75 62 6c 65 2d |x number|/double-|
|00003020| 63 6c 69 63 6b 20 73 74 | 61 74 75 73 09 09 09 7d |click st|atus...}|
|00003030| 0d 09 09 09 09 4d 65 6e | 75 3a 20 54 50 50 6f 6c |.....Men|u: TPPol|
|00003040| 6c 4d 65 6e 75 52 65 63 | 3b 09 09 09 09 09 09 09 |lMenuRec|;.......|
|00003050| 09 09 09 7b 4d 65 6e 75 | 20 6e 75 6d 62 65 72 2f |...{Menu| number/|
|00003060| 6d 65 6e 75 20 69 74 65 | 6d 20 6f 66 20 61 6e 20 |menu ite|m of an |
|00003070| 65 76 65 6e 74 09 09 09 | 7d 0d 09 09 09 09 4b 65 |event...|}.....Ke|
|00003080| 79 3a 20 54 50 50 6f 6c | 6c 4b 65 79 52 65 63 3b |y: TPPol|lKeyRec;|
|00003090| 09 09 09 09 09 09 09 09 | 09 09 7b 4c 6f 67 69 63 |........|..{Logic|
|000030a0| 61 6c 20 6b 65 79 20 6e | 75 6d 62 65 72 20 26 20 |al key n|umber & |
|000030b0| 63 68 61 72 61 63 74 65 | 72 20 6f 66 20 74 79 70 |characte|r of typ|
|000030c0| 65 64 20 6b 65 79 09 7d | 0d 09 09 09 09 4d 6f 75 |ed key.}|.....Mou|
|000030d0| 73 65 3a 20 54 50 50 6f | 6c 6c 4d 6f 75 73 65 52 |se: TPPo|llMouseR|
|000030e0| 65 63 3b 09 09 09 09 09 | 09 09 09 09 7b 43 6c 69 |ec;.....|....{Cli|
|000030f0| 63 6b 2f 64 72 61 67 20 | 69 6e 66 6f 3a 20 5b 31 |ck/drag |info: [1|
|00003100| 2e 2e 33 5d 20 77 68 65 | 72 65 20 26 20 77 68 65 |..3] whe|re & whe|
|00003110| 6e 09 09 09 7d 0d 09 09 | 09 09 4d 6f 64 69 66 69 |n...}...|..Modifi|
|00003120| 65 72 73 3a 20 54 50 4d | 6f 64 69 66 69 65 72 73 |ers: TPM|odifiers|
|00003130| 52 65 63 3b 09 09 09 09 | 09 09 09 09 09 7b 4d 6f |Rec;....|.....{Mo|
|00003140| 64 69 66 69 65 72 20 66 | 6c 61 67 73 09 09 09 09 |difier f|lags....|
|00003150| 09 09 09 09 09 7d 0d 09 | 09 09 09 45 76 65 6e 74 |.....}..|...Event|
|00003160| 3a 20 45 76 65 6e 74 52 | 65 63 6f 72 64 09 09 09 |: EventR|ecord...|
|00003170| 09 09 09 09 09 09 09 7b | 4d 61 63 69 6e 74 6f 73 |.......{|Macintos|
|00003180| 68 20 54 6f 6f 6c 62 6f | 78 20 45 76 65 6e 74 20 |h Toolbo|x Event |
|00003190| 28 72 61 77 29 09 09 09 | 09 09 7d 0d 09 09 09 65 |(raw)...|..}....e|
|000031a0| 6e 64 3b 0d 0d 09 7b 3d | 20 57 49 4e 44 4f 57 20 |nd;...{=| WINDOW |
|000031b0| 73 74 61 74 75 73 20 69 | 6e 66 6f 72 6d 61 74 69 |status i|nformati|
|000031c0| 6f 6e 7d 0d 09 09 54 50 | 57 69 6e 64 6f 77 53 74 |on}...TP|WindowSt|
|000031d0| 61 74 75 73 20 3d 20 72 | 65 63 6f 72 64 0d 09 09 |atus = r|ecord...|
|000031e0| 09 09 4f 70 65 6e 3a 20 | 62 6f 6f 6c 65 61 6e 3b |..Open: |boolean;|
|000031f0| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 49 73 20 |........|....{Is |
|00003200| 74 68 65 20 77 69 6e 64 | 6f 77 20 6f 70 65 6e 3f |the wind|ow open?|
|00003210| 09 09 09 09 09 09 09 7d | 0d 09 09 09 09 41 63 74 |.......}|.....Act|
|00003220| 69 76 65 3a 20 62 6f 6f | 6c 65 61 6e 3b 09 09 09 |ive: boo|lean;...|
|00003230| 09 09 09 09 09 09 09 09 | 7b 49 73 20 74 68 69 73 |........|{Is this|
|00003240| 20 74 68 65 20 61 63 74 | 69 76 65 20 77 69 6e 64 | the act|ive wind|
|00003250| 6f 77 3f 09 09 09 09 09 | 09 7d 0d 09 09 09 09 43 |ow?.....|.}.....C|
|00003260| 75 72 72 65 6e 74 3a 20 | 62 6f 6f 6c 65 61 6e 3b |urrent: |boolean;|
|00003270| 09 09 09 09 09 09 09 09 | 09 09 09 7b 49 73 20 74 |........|...{Is t|
|00003280| 68 69 73 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |his the |current |
|00003290| 77 69 6e 64 6f 77 3f 09 | 09 09 09 09 09 7d 0d 09 |window?.|.....}..|
|000032a0| 09 09 09 46 72 6f 6e 74 | 3a 20 62 6f 6f 6c 65 61 |...Front|: boolea|
|000032b0| 6e 3b 09 09 09 09 09 09 | 09 09 09 09 09 09 7b 49 |n;......|......{I|
|000032c0| 73 20 74 68 69 73 20 74 | 68 65 20 66 72 6f 6e 74 |s this t|he front|
|000032d0| 20 6d 6f 73 74 20 54 6f | 6f 6c 73 20 50 6c 75 73 | most To|ols Plus|
|000032e0| 20 77 69 6e 64 6f 77 3f | 09 09 7d 0d 09 09 09 09 | window?|..}.....|
|000032f0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7b 09 28 |........|.....{.(|
|00003300| 77 68 69 63 68 20 6d 61 | 79 20 62 65 20 69 6e 61 |which ma|y be ina|
|00003310| 63 74 69 76 65 20 64 75 | 65 20 74 6f 20 61 6e 20 |ctive du|e to an |
|00003320| 61 63 74 69 76 65 09 09 | 7d 0d 09 09 09 09 09 09 |active..|}.......|
|00003330| 09 09 09 09 09 09 09 09 | 09 09 09 7b 09 64 69 61 |........|...{.dia|
|00003340| 6c 6f 67 20 6f 72 20 64 | 65 73 6b 20 61 63 63 65 |log or d|esk acce|
|00003350| 73 73 6f 72 79 20 75 6e | 64 65 72 20 53 79 73 74 |ssory un|der Syst|
|00003360| 65 6d 20 36 29 09 7d 0d | 09 09 09 09 53 69 7a 65 |em 6).}.|....Size|
|00003370| 3a 20 70 6f 69 6e 74 3b | 09 09 09 09 09 09 09 09 |: point;|........|
|00003380| 09 09 09 09 09 7b 53 69 | 7a 65 20 69 6e 20 70 69 |.....{Si|ze in pi|
|00003390| 78 65 6c 73 20 28 2e 68 | 3d 68 6f 72 69 7a 6f 6e |xels (.h|=horizon|
|000033a0| 74 61 6c 2c 20 2e 76 3d | 76 65 72 74 69 63 61 6c |tal, .v=|vertical|
|000033b0| 29 09 09 7d 0d 09 09 09 | 09 57 68 65 72 65 3a 20 |)..}....|.Where: |
|000033c0| 70 6f 69 6e 74 09 09 09 | 09 09 09 09 09 09 09 09 |point...|........|
|000033d0| 09 7b 4c 6f 63 61 74 69 | 6f 6e 20 6f 66 20 74 6f |.{Locati|on of to|
|000033e0| 70 2d 6c 65 66 74 20 63 | 6f 72 6e 65 72 20 69 6e |p-left c|orner in|
|000033f0| 20 67 6c 6f 62 61 6c 20 | 63 6f 2d 6f 72 64 69 6e | global |co-ordin|
|00003400| 61 74 65 73 7d 0d 09 09 | 09 65 6e 64 3b 0d 0d 09 |ates}...|.end;...|
|00003410| 7b 3d 20 43 6f 6c 6f 72 | 20 50 65 6e 20 69 6e 66 |{= Color| Pen inf|
|00003420| 6f 72 6d 61 74 69 6f 6e | 7d 0d 09 09 43 6f 6c 6f |ormation|}...Colo|
|00003430| 72 50 65 6e 53 74 61 74 | 65 20 3d 20 72 65 63 6f |rPenStat|e = reco|
|00003440| 72 64 09 09 09 09 09 09 | 09 09 09 09 7b 43 6f 6c |rd......|....{Col|
|00003450| 6f 72 20 65 71 75 69 76 | 61 6c 65 6e 74 20 66 6f |or equiv|alent fo|
|00003460| 72 20 61 20 27 50 65 6e | 53 74 61 74 65 27 20 72 |r a 'Pen|State' r|
|00003470| 65 63 6f 72 64 2e 20 20 | 54 68 69 73 09 7d 0d 09 |ecord.  |This.}..|
|00003480| 09 09 09 50 65 6e 53 74 | 61 74 65 3a 20 50 65 6e |...PenSt|ate: Pen|
|00003490| 53 74 61 74 65 3b 09 09 | 09 09 09 09 09 09 09 09 |State;..|........|
|000034a0| 7b 09 72 65 63 6f 72 64 | 20 61 6c 73 6f 20 73 74 |{.record| also st|
|000034b0| 6f 72 65 73 20 61 64 64 | 69 74 69 6f 6e 61 6c 20 |ores add|itional |
|000034c0| 76 61 6c 75 65 73 20 66 | 6f 72 20 74 68 65 09 7d |values f|or the.}|
|000034d0| 0d 09 09 09 09 46 6f 72 | 65 67 72 6f 75 6e 64 43 |.....For|egroundC|
|000034e0| 6f 6c 6f 72 3a 20 52 47 | 42 43 6f 6c 6f 72 3b 09 |olor: RG|BColor;.|
|000034f0| 09 09 09 09 09 09 09 7b | 09 77 69 6e 64 6f 77 27 |.......{|.window'|
|00003500| 73 20 66 6f 72 65 67 72 | 6f 75 6e 64 20 61 6e 64 |s foregr|ound and|
|00003510| 20 62 61 63 6b 67 72 6f | 75 6e 64 09 09 7d 0d 09 | backgro|und..}..|
|00003520| 09 09 09 42 61 63 6b 67 | 72 6f 75 6e 64 43 6f 6c |...Backg|roundCol|
|00003530| 6f 72 3a 20 52 47 42 43 | 6f 6c 6f 72 09 09 09 09 |or: RGBC|olor....|
|00003540| 09 09 09 09 7b 09 63 6f | 6c 6f 72 73 2e 09 09 09 |....{.co|lors....|
|00003550| 09 09 09 09 09 09 09 7d | 0d 09 09 09 65 6e 64 3b |.......}|....end;|
|00003560| 0d 0d 0d 0d 0d 7b 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.....{==|========|
|00003570| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003580| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 20 49 20 4e 20 49 |========|== I N I|
|00003590| 20 54 20 49 20 41 20 4c | 20 49 20 5a 20 41 20 54 | T I A L| I Z A T|
|000035a0| 20 49 20 4f 20 4e 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d | I O N =|========|
|000035b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000035c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 09 7d 0d 7b 49 |========|===.}.{I|
|000035d0| 6e 69 74 69 61 6c 69 7a | 65 20 54 6f 6f 6c 73 20 |nitializ|e Tools |
|000035e0| 50 6c 75 73 7d 0d 09 66 | 75 6e 63 74 69 6f 6e 20 |Plus}..f|unction |
|000035f0| 49 6e 69 74 54 6f 6f 6c | 73 50 6c 75 73 20 28 4d |InitTool|sPlus (M|
|00003600| 6f 72 65 48 61 6e 64 6c | 65 73 3a 20 54 50 5f 4d |oreHandl|es: TP_M|
|00003610| 6f 72 65 4d 61 73 74 65 | 72 73 3b 09 09 09 7b 4e |oreMaste|rs;...{N|
|00003620| 75 6d 62 65 72 20 6f 66 | 20 4d 6f 72 65 4d 61 73 |umber of| MoreMas|
|00003630| 74 65 72 73 20 69 6e 69 | 74 69 61 6c 69 7a 69 6e |ters ini|tializin|
|00003640| 67 20 63 79 63 6c 65 73 | 09 09 7d 0d 09 09 09 09 |g cycles|..}.....|
|00003650| 09 09 09 09 09 4d 61 78 | 57 69 6e 64 6f 77 73 3a |.....Max|Windows:|
|00003660| 20 54 50 5f 57 4e 75 6d | 73 3b 09 09 09 09 09 09 | TP_WNum|s;......|
|00003670| 7b 4d 61 78 69 6d 75 6d | 20 6e 75 6d 62 65 72 20 |{Maximum| number |
|00003680| 6f 66 20 77 69 6e 64 6f | 77 73 20 72 65 71 75 69 |of windo|ws requi|
|00003690| 72 65 64 09 09 09 7d 0d | 09 09 09 09 09 09 09 09 |red...}.|........|
|000036a0| 09 55 73 65 43 6f 6c 6f | 72 46 6c 61 67 3a 20 62 |.UseColo|rFlag: b|
|000036b0| 6f 6f 6c 65 61 6e 09 09 | 09 09 09 09 09 7b 53 68 |oolean..|.....{Sh|
|000036c0| 6f 75 6c 64 20 43 6f 6c | 6f 72 20 51 75 69 63 6b |ould Col|or Quick|
|000036d0| 44 72 61 77 20 62 65 20 | 75 73 65 64 20 69 66 20 |Draw be |used if |
|000036e0| 61 76 61 69 6c 61 62 6c | 65 3f 09 7d 0d 09 09 09 |availabl|e?.}....|
|000036f0| 09 09 09 09 09 09 29 3a | 20 42 6f 6f 6c 65 61 6e |......):| Boolean|
|00003700| 3b 09 09 09 09 09 09 09 | 09 09 09 7b 57 61 73 20 |;.......|...{Was |
|00003710| 69 6e 69 74 69 61 6c 69 | 7a 61 74 69 6f 6e 20 73 |initiali|zation s|
|00003720| 75 63 63 65 73 73 66 75 | 6c 3f 09 09 09 09 09 7d |uccessfu|l?.....}|
|00003730| 0d 0d 0d 7b 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |...{====|========|
|00003740| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003750| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 20 57 20 49 20 |========|=== W I |
|00003760| 4e 20 44 20 4f 20 57 20 | 53 20 3d 3d 3d 3d 3d 3d |N D O W |S ======|
|00003770| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003780| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003790| 3d 3d 09 7d 0d 7b 4f 70 | 65 6e 20 61 20 77 69 6e |==.}.{Op|en a win|
|000037a0| 64 6f 77 20 61 6e 64 20 | 6d 61 6b 65 20 69 74 20 |dow and |make it |
|000037b0| 61 63 74 69 76 65 7d 0d | 09 70 72 6f 63 65 64 75 |active}.|.procedu|
|000037c0| 72 65 20 57 69 6e 64 6f | 77 4f 70 65 6e 20 28 57 |re Windo|wOpen (W|
|000037d0| 69 6e 64 6f 77 3a 20 54 | 50 5f 57 4e 75 6d 73 3b |indow: T|P_WNums;|
|000037e0| 09 09 09 09 09 7b 57 69 | 6e 64 6f 77 20 6e 75 6d |.....{Wi|ndow num|
|000037f0| 62 65 72 09 09 09 09 09 | 09 09 09 7d 0d 09 09 09 |ber.....|...}....|
|00003800| 09 09 09 09 09 09 6c 65 | 66 74 2c 20 74 6f 70 2c |......le|ft, top,|
|00003810| 20 72 69 67 68 74 2c 20 | 62 6f 74 74 6f 6d 3a 20 | right, |bottom: |
|00003820| 49 6e 74 65 67 65 72 3b | 09 09 09 09 09 7b 57 69 |Integer;|.....{Wi|
|00003830| 6e 64 6f 77 27 73 20 63 | 6f 2d 6f 72 64 69 6e 61 |ndow's c|o-ordina|
|00003840| 74 65 73 20 28 67 6c 6f | 62 61 6c 29 09 09 09 09 |tes (glo|bal)....|
|00003850| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 54 69 74 6c |.}......|....Titl|
|00003860| 65 3a 20 73 74 72 69 6e | 67 3b 09 09 09 09 09 09 |e: strin|g;......|
|00003870| 09 09 09 09 7b 57 69 6e | 64 6f 77 27 73 20 74 69 |....{Win|dow's ti|
|00003880| 74 6c 65 20 28 69 66 20 | 61 70 70 6c 69 63 61 62 |tle (if |applicab|
|00003890| 6c 65 29 09 09 09 09 09 | 7d 0d 09 09 09 09 09 09 |le).....|}.......|
|000038a0| 09 09 09 70 72 6f 63 49 | 44 3a 20 49 6e 74 65 67 |...procI|D: Integ|
|000038b0| 65 72 3b 09 09 09 09 09 | 09 09 09 09 7b 57 69 6e |er;.....|....{Win|
|000038c0| 64 6f 77 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 49 |dow defi|nition I|
|000038d0| 44 09 09 09 09 09 09 09 | 7d 0d 09 09 09 09 09 09 |D.......|}.......|
|000038e0| 09 09 09 67 6f 41 77 61 | 79 46 6c 61 67 2c 20 6d |...goAwa|yFlag, m|
|000038f0| 6f 64 61 6c 46 6c 61 67 | 3a 20 42 6f 6f 6c 65 61 |odalFlag|: Boolea|
|00003900| 6e 29 3b 09 09 09 09 7b | 49 6e 63 6c 75 64 65 20 |n);....{|Include |
|00003910| 43 6c 6f 73 65 20 42 6f | 78 3f 20 20 49 73 20 77 |Close Bo|x?  Is w|
|00003920| 69 6e 64 6f 77 20 6d 6f | 64 61 6c 3f 09 09 09 7d |indow mo|dal?...}|
|00003930| 0d 0d 7b 4f 70 65 6e 20 | 61 20 77 69 6e 64 6f 77 |..{Open |a window|
|00003940| 20 61 6e 64 20 6d 61 6b | 65 20 69 74 20 61 63 74 | and mak|e it act|
|00003950| 69 76 65 20 28 63 6f 2d | 6f 72 64 69 6e 61 74 65 |ive (co-|ordinate|
|00003960| 73 20 73 70 65 63 69 66 | 69 65 64 20 61 73 20 61 |s specif|ied as a|
|00003970| 20 27 72 65 63 74 27 29 | 20 7d 0d 09 70 72 6f 63 | 'rect')| }..proc|
|00003980| 65 64 75 72 65 20 57 69 | 6e 64 6f 77 4f 70 65 6e |edure Wi|ndowOpen|
|00003990| 52 65 63 74 20 28 57 69 | 6e 64 6f 77 3a 20 54 50 |Rect (Wi|ndow: TP|
|000039a0| 5f 57 4e 75 6d 73 3b 09 | 09 09 09 7b 57 69 6e 64 |_WNums;.|...{Wind|
|000039b0| 6f 77 20 6e 75 6d 62 65 | 72 09 09 09 09 09 09 09 |ow numbe|r.......|
|000039c0| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 42 6f 75 6e |.}......|....Boun|
|000039d0| 64 73 3a 20 72 65 63 74 | 3b 09 09 09 09 09 09 09 |ds: rect|;.......|
|000039e0| 09 09 09 7b 57 69 6e 64 | 6f 77 27 73 20 63 6f 2d |...{Wind|ow's co-|
|000039f0| 6f 72 64 69 6e 61 74 65 | 73 20 28 67 6c 6f 62 61 |ordinate|s (globa|
|00003a00| 6c 29 09 09 09 09 09 7d | 0d 09 09 09 09 09 09 09 |l).....}|........|
|00003a10| 09 09 54 69 74 6c 65 3a | 20 73 74 72 69 6e 67 3b |..Title:| string;|
|00003a20| 09 09 09 09 09 09 09 09 | 09 09 7b 57 69 6e 64 6f |........|..{Windo|
|00003a30| 77 27 73 20 74 69 74 6c | 65 20 28 69 66 20 61 70 |w's titl|e (if ap|
|00003a40| 70 6c 69 63 61 62 6c 65 | 29 09 09 09 09 09 7d 0d |plicable|).....}.|
|00003a50| 09 09 09 09 09 09 09 09 | 09 70 72 6f 63 49 44 3a |........|.procID:|
|00003a60| 20 49 6e 74 65 67 65 72 | 3b 09 09 09 09 09 09 09 | Integer|;.......|
|00003a70| 09 09 7b 57 69 6e 64 6f | 77 20 64 65 66 69 6e 69 |..{Windo|w defini|
|00003a80| 74 69 6f 6e 20 49 44 09 | 09 09 09 09 09 09 7d 0d |tion ID.|......}.|
|00003a90| 09 09 09 09 09 09 09 09 | 09 67 6f 41 77 61 79 46 |........|.goAwayF|
|00003aa0| 6c 61 67 2c 20 6d 6f 64 | 61 6c 46 6c 61 67 3a 20 |lag, mod|alFlag: |
|00003ab0| 42 6f 6f 6c 65 61 6e 29 | 3b 09 09 09 09 7b 49 6e |Boolean)|;....{In|
|00003ac0| 63 6c 75 64 65 20 43 6c | 6f 73 65 20 42 6f 78 3f |clude Cl|ose Box?|
|00003ad0| 20 20 49 73 20 77 69 6e | 64 6f 77 20 6d 6f 64 61 |  Is win|dow moda|
|00003ae0| 6c 3f 09 09 09 7d 0d 0d | 7b 43 6c 6f 73 65 20 61 |l?...}..|{Close a|
|00003af0| 20 77 69 6e 64 6f 77 7d | 0d 09 70 72 6f 63 65 64 | window}|..proced|
|00003b00| 75 72 65 20 57 69 6e 64 | 6f 77 43 6c 6f 73 65 20 |ure Wind|owClose |
|00003b10| 28 57 69 6e 64 6f 77 3a | 20 54 50 5f 57 4e 75 6d |(Window:| TP_WNum|
|00003b20| 73 29 3b 09 09 09 09 7b | 57 69 6e 64 6f 77 20 6e |s);....{|Window n|
|00003b30| 75 6d 62 65 72 09 09 09 | 09 09 09 09 09 7d 0d 0d |umber...|.....}..|
|00003b40| 7b 4d 61 6b 65 20 61 20 | 73 70 65 63 69 66 69 65 |{Make a |specifie|
|00003b50| 64 20 77 69 6e 64 6f 77 | 20 74 68 65 20 22 61 63 |d window| the "ac|
|00003b60| 74 69 76 65 22 20 61 6e | 64 20 22 63 75 72 72 65 |tive" an|d "curre|
|00003b70| 6e 74 22 20 77 69 6e 64 | 6f 77 7d 0d 09 70 72 6f |nt" wind|ow}..pro|
|00003b80| 63 65 64 75 72 65 20 41 | 63 74 69 76 61 74 65 57 |cedure A|ctivateW|
|00003b90| 69 6e 64 6f 77 20 28 57 | 69 6e 64 6f 77 3a 20 54 |indow (W|indow: T|
|00003ba0| 50 5f 57 4e 75 6d 73 29 | 3b 09 09 09 09 7b 57 69 |P_WNums)|;....{Wi|
|00003bb0| 6e 64 6f 77 20 6e 75 6d | 62 65 72 09 09 09 09 09 |ndow num|ber.....|
|00003bc0| 09 09 09 7d 0d 0d 7b 53 | 65 74 20 61 20 77 69 6e |...}..{S|et a win|
|00003bd0| 64 6f 77 27 73 20 74 69 | 74 6c 65 7d 0d 09 70 72 |dow's ti|tle}..pr|
|00003be0| 6f 63 65 64 75 72 65 20 | 57 69 6e 64 6f 77 54 69 |ocedure |WindowTi|
|00003bf0| 74 6c 65 20 28 57 69 6e | 64 6f 77 3a 20 54 50 5f |tle (Win|dow: TP_|
|00003c00| 57 4e 75 6d 73 3b 09 09 | 09 09 09 7b 57 69 6e 64 |WNums;..|...{Wind|
|00003c10| 6f 77 20 6e 75 6d 62 65 | 72 09 09 09 09 09 09 09 |ow numbe|r.......|
|00003c20| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 54 69 74 6c |.}......|....Titl|
|00003c30| 65 3a 20 73 74 72 69 6e | 67 29 3b 09 09 09 09 09 |e: strin|g);.....|
|00003c40| 09 09 09 09 7b 57 69 6e | 64 6f 77 27 73 20 74 69 |....{Win|dow's ti|
|00003c50| 74 6c 65 20 28 69 66 20 | 61 70 70 6c 69 63 61 62 |tle (if |applicab|
|00003c60| 6c 65 29 09 09 09 09 09 | 7d 0d 0d 7b 53 65 74 20 |le).....|}..{Set |
|00003c70| 74 68 65 20 63 75 72 72 | 65 6e 74 20 77 69 6e 64 |the curr|ent wind|
|00003c80| 6f 77 27 73 20 22 64 72 | 61 67 67 69 6e 67 22 20 |ow's "dr|agging" |
|00003c90| 62 6f 75 6e 64 61 72 79 | 20 66 6f 72 20 74 68 65 |boundary| for the|
|00003ca0| 20 63 75 72 73 6f 72 7d | 0d 09 70 72 6f 63 65 64 | cursor}|..proced|
|00003cb0| 75 72 65 20 53 65 74 43 | 75 72 73 44 72 61 67 42 |ure SetC|ursDragB|
|00003cc0| 6f 75 6e 64 73 20 28 6c | 65 66 74 2c 20 74 6f 70 |ounds (l|eft, top|
|00003cd0| 2c 20 72 69 67 68 74 2c | 20 62 6f 74 74 6f 6d 3a |, right,| bottom:|
|00003ce0| 20 49 6e 74 65 67 65 72 | 29 3b 7b 43 75 72 73 6f | Integer|);{Curso|
|00003cf0| 72 27 73 20 22 77 69 6e | 64 6f 77 20 64 72 61 67 |r's "win|dow drag|
|00003d00| 67 69 6e 67 22 20 62 6f | 75 6e 64 61 72 79 20 28 |ging" bo|undary (|
|00003d10| 67 6c 6f 62 61 6c 29 09 | 7d 0d 0d 7b 53 65 74 20 |global).|}..{Set |
|00003d20| 74 68 65 20 63 75 72 72 | 65 6e 74 20 77 69 6e 64 |the curr|ent wind|
|00003d30| 6f 77 27 73 20 22 67 72 | 6f 77 69 6e 67 22 20 6c |ow's "gr|owing" l|
|00003d40| 69 6d 69 74 73 20 28 69 | 2e 65 2e 20 6d 61 78 69 |imits (i|.e. maxi|
|00003d50| 6d 75 6d 2f 6d 69 6e 69 | 6d 75 6d 20 73 69 7a 65 |mum/mini|mum size|
|00003d60| 29 20 7d 0d 09 70 72 6f | 63 65 64 75 72 65 20 53 |) }..pro|cedure S|
|00003d70| 65 74 57 69 6e 64 6f 77 | 53 69 7a 65 4c 69 6d 69 |etWindow|SizeLimi|
|00003d80| 74 73 20 28 6d 69 6e 48 | 6f 72 69 7a 2c 20 6d 69 |ts (minH|oriz, mi|
|00003d90| 6e 56 65 72 74 2c 20 6d | 61 78 48 6f 72 69 7a 2c |nVert, m|axHoriz,|
|00003da0| 20 4d 61 78 56 65 72 74 | 3a 20 49 6e 74 65 67 65 | MaxVert|: Intege|
|00003db0| 72 29 3b 7b 57 69 6e 64 | 6f 77 27 73 20 73 69 7a |r);{Wind|ow's siz|
|00003dc0| 65 20 6c 69 6d 69 74 73 | 20 69 6e 20 70 69 78 65 |e limits| in pixe|
|00003dd0| 6c 73 7d 0d 0d 7b 53 65 | 74 20 74 68 65 20 63 75 |ls}..{Se|t the cu|
|00003de0| 72 72 65 6e 74 20 77 69 | 6e 64 6f 77 27 73 20 73 |rrent wi|ndow's s|
|00003df0| 74 61 6e 64 61 72 64 20 | 63 6f 2d 6f 72 64 69 6e |tandard |co-ordin|
|00003e00| 61 74 65 73 20 61 6e 64 | 20 75 73 65 72 20 63 6f |ates and| user co|
|00003e10| 2d 6f 72 64 69 6e 61 74 | 65 73 20 66 6f 72 20 22 |-ordinat|es for "|
|00003e20| 7a 6f 6f 6d 69 6e 67 22 | 7d 0d 09 70 72 6f 63 65 |zooming"|}..proce|
|00003e30| 64 75 72 65 20 53 65 74 | 57 69 6e 64 6f 77 5a 6f |dure Set|WindowZo|
|00003e40| 6f 6d 20 28 75 73 65 72 | 52 65 63 74 2c 20 73 74 |om (user|Rect, st|
|00003e50| 64 52 65 63 74 3a 20 72 | 65 63 74 29 3b 09 09 09 |dRect: r|ect);...|
|00003e60| 7b 55 73 65 72 20 26 20 | 73 74 61 6e 64 61 72 64 |{User & |standard|
|00003e70| 20 63 6f 2d 6f 72 64 69 | 6e 61 74 65 73 20 28 67 | co-ordi|nates (g|
|00003e80| 6c 6f 62 61 6c 29 09 09 | 09 7d 0d 0d 7b 47 65 74 |lobal)..|.}..{Get|
|00003e90| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 77 69 6e | the cur|rent win|
|00003ea0| 64 6f 77 27 73 20 75 73 | 65 72 20 63 6f 2d 6f 72 |dow's us|er co-or|
|00003eb0| 64 69 6e 61 74 65 73 20 | 26 20 73 74 61 6e 64 61 |dinates |& standa|
|00003ec0| 72 64 20 63 6f 2d 6f 72 | 64 69 6e 61 74 65 73 20 |rd co-or|dinates |
|00003ed0| 66 6f 72 20 22 7a 6f 6f | 6d 69 6e 67 22 7d 0d 09 |for "zoo|ming"}..|
|00003ee0| 70 72 6f 63 65 64 75 72 | 65 20 47 65 74 57 69 6e |procedur|e GetWin|
|00003ef0| 64 6f 77 5a 6f 6f 6d 20 | 28 76 61 72 20 75 73 65 |dowZoom |(var use|
|00003f00| 72 52 65 63 74 2c 20 73 | 74 64 52 65 63 74 3a 20 |rRect, s|tdRect: |
|00003f10| 52 65 63 74 29 3b 09 09 | 7b 55 73 65 72 20 26 20 |Rect);..|{User & |
|00003f20| 73 74 61 6e 64 61 72 64 | 20 63 6f 2d 6f 72 64 69 |standard| co-ordi|
|00003f30| 6e 61 74 65 73 20 28 67 | 6c 6f 62 61 6c 29 09 09 |nates (g|lobal)..|
|00003f40| 09 7d 0d 0d 7b 4d 61 6b | 65 20 61 20 73 70 65 63 |.}..{Mak|e a spec|
|00003f50| 69 66 69 65 64 20 77 69 | 6e 64 6f 77 20 22 63 75 |ified wi|ndow "cu|
|00003f60| 72 72 65 6e 74 22 2c 20 | 62 75 74 20 64 6f 20 6e |rrent", |but do n|
|00003f70| 6f 74 20 61 63 74 69 76 | 61 74 65 20 69 74 7d 0d |ot activ|ate it}.|
|00003f80| 09 70 72 6f 63 65 64 75 | 72 65 20 43 75 72 72 65 |.procedu|re Curre|
|00003f90| 6e 74 57 69 6e 64 6f 77 | 20 28 57 69 6e 64 6f 77 |ntWindow| (Window|
|00003fa0| 3a 20 54 50 5f 57 4e 75 | 6d 73 29 3b 09 09 09 09 |: TP_WNu|ms);....|
|00003fb0| 7b 57 69 6e 64 6f 77 20 | 6e 75 6d 62 65 72 09 09 |{Window |number..|
|00003fc0| 09 09 09 09 09 09 7d 0d | 0d 7b 4d 61 6b 65 20 74 |......}.|.{Make t|
|00003fd0| 68 65 20 22 61 63 74 69 | 76 65 22 20 77 69 6e 64 |he "acti|ve" wind|
|00003fe0| 6f 77 20 22 63 75 72 72 | 65 6e 74 22 7d 0d 09 70 |ow "curr|ent"}..p|
|00003ff0| 72 6f 63 65 64 75 72 65 | 20 43 75 72 72 65 6e 74 |rocedure| Current|
|00004000| 57 69 6e 64 6f 77 52 65 | 73 65 74 3b 0d 0d 7b 47 |WindowRe|set;..{G|
|00004010| 65 74 20 61 20 77 69 6e | 64 6f 77 27 73 20 73 74 |et a win|dow's st|
|00004020| 61 74 75 73 7d 0d 09 70 | 72 6f 63 65 64 75 72 65 |atus}..p|rocedure|
|00004030| 20 57 69 6e 64 6f 77 53 | 74 61 74 75 73 20 28 57 | WindowS|tatus (W|
|00004040| 69 6e 64 6f 77 3a 20 54 | 50 5f 57 4e 75 6d 73 3b |indow: T|P_WNums;|
|00004050| 09 09 09 09 7b 57 69 6e | 64 6f 77 20 6e 75 6d 62 |....{Win|dow numb|
|00004060| 65 72 09 09 09 09 09 09 | 09 09 7d 0d 09 09 09 09 |er......|..}.....|
|00004070| 09 09 09 09 09 76 61 72 | 20 53 74 61 74 75 73 3a |.....var| Status:|
|00004080| 20 54 50 57 69 6e 64 6f | 77 53 74 61 74 75 73 29 | TPWindo|wStatus)|
|00004090| 3b 09 09 09 09 09 7b 57 | 69 6e 64 6f 77 27 73 20 |;.....{W|indow's |
|000040a0| 73 74 61 74 75 73 20 72 | 65 63 6f 72 64 09 09 09 |status r|ecord...|
|000040b0| 09 09 09 7d 0d 0d 7b 47 | 65 74 20 74 68 65 20 61 |...}..{G|et the a|
|000040c0| 63 74 69 76 65 20 77 69 | 6e 64 6f 77 20 6e 75 6d |ctive wi|ndow num|
|000040d0| 62 65 72 7d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 41 |ber}..fu|nction A|
|000040e0| 63 74 69 76 65 57 69 6e | 64 6f 77 4e 75 6d 62 65 |ctiveWin|dowNumbe|
|000040f0| 72 3a 20 69 6e 74 65 67 | 65 72 3b 09 09 09 09 09 |r: integ|er;.....|
|00004100| 09 09 7b 57 69 6e 64 6f | 77 20 6e 75 6d 62 65 72 |..{Windo|w number|
|00004110| 20 6f 66 20 61 63 74 69 | 76 65 20 77 69 6e 64 6f | of acti|ve windo|
|00004120| 77 09 09 09 09 7d 0d 0d | 7b 47 65 74 20 74 68 65 |w....}..|{Get the|
|00004130| 20 63 75 72 72 65 6e 74 | 20 77 69 6e 64 6f 77 20 | current| window |
|00004140| 6e 75 6d 62 65 72 7d 0d | 09 66 75 6e 63 74 69 6f |number}.|.functio|
|00004150| 6e 20 43 75 72 72 65 6e | 74 57 69 6e 64 6f 77 4e |n Curren|tWindowN|
|00004160| 75 6d 62 65 72 3a 20 69 | 6e 74 65 67 65 72 3b 09 |umber: i|nteger;.|
|00004170| 09 09 09 09 09 7b 57 69 | 6e 64 6f 77 20 6e 75 6d |.....{Wi|ndow num|
|00004180| 62 65 72 20 6f 66 20 63 | 75 72 72 65 6e 74 20 77 |ber of c|urrent w|
|00004190| 69 6e 64 6f 77 09 09 09 | 09 7d 0d 0d 7b 47 65 74 |indow...|.}..{Get|
|000041a0| 20 74 68 65 20 66 72 6f | 6e 74 20 6d 6f 73 74 20 | the fro|nt most |
|000041b0| 77 69 6e 64 6f 77 20 6e | 75 6d 62 65 72 7d 0d 09 |window n|umber}..|
|000041c0| 66 75 6e 63 74 69 6f 6e | 20 46 69 72 73 74 57 69 |function| FirstWi|
|000041d0| 6e 64 6f 77 4e 75 6d 62 | 65 72 3a 20 69 6e 74 65 |ndowNumb|er: inte|
|000041e0| 67 65 72 3b 09 09 09 09 | 09 09 09 7b 57 69 6e 64 |ger;....|...{Wind|
|000041f0| 6f 77 20 6e 75 6d 62 65 | 72 20 6f 66 20 66 72 6f |ow numbe|r of fro|
|00004200| 6e 74 20 6d 6f 73 74 20 | 77 69 6e 64 6f 77 09 09 |nt most |window..|
|00004210| 09 7d 0d 0d 7b 47 65 74 | 20 61 20 77 69 6e 64 6f |.}..{Get| a windo|
|00004220| 77 27 73 20 22 77 69 6e | 64 6f 77 20 70 6f 69 6e |w's "win|dow poin|
|00004230| 74 65 72 22 20 7d 0d 09 | 66 75 6e 63 74 69 6f 6e |ter" }..|function|
|00004240| 20 57 69 6e 64 6f 77 50 | 6f 69 6e 74 65 72 20 28 | WindowP|ointer (|
|00004250| 57 69 6e 64 6f 77 3a 20 | 54 50 5f 57 4e 75 6d 73 |Window: |TP_WNums|
|00004260| 09 09 09 09 09 7b 57 69 | 6e 64 6f 77 20 6e 75 6d |.....{Wi|ndow num|
|00004270| 62 65 72 09 09 09 09 09 | 09 09 09 7d 0d 09 09 09 |ber.....|...}....|
|00004280| 09 09 09 09 09 09 29 3a | 20 57 69 6e 64 6f 77 50 |......):| WindowP|
|00004290| 74 72 3b 09 09 09 09 09 | 09 09 09 09 09 7b 57 69 |tr;.....|.....{Wi|
|000042a0| 6e 64 6f 77 27 73 20 70 | 6f 69 6e 74 65 72 09 09 |ndow's p|ointer..|
|000042b0| 09 09 09 09 09 09 7d 0d | 0d 0d 7b 3d 3d 3d 3d 3d |......}.|..{=====|
|000042c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000042d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000042e0| 3d 3d 3d 20 42 20 55 20 | 54 20 54 20 4f 20 4e 20 |=== B U |T T O N |
|000042f0| 53 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |S ======|========|
|00004300| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 09 7d 0d 7b 41 6c |========|==.}.{Al|
|00004320| 6c 20 62 75 74 74 6f 6e | 20 6f 70 65 72 61 74 69 |l button| operati|
|00004330| 6f 6e 73 20 70 65 72 74 | 61 69 6e 20 74 6f 20 74 |ons pert|ain to t|
|00004340| 68 65 20 22 63 75 72 72 | 65 6e 74 22 20 77 69 6e |he "curr|ent" win|
|00004350| 64 6f 77 2e 7d 0d 0d 7b | 43 72 65 61 74 65 20 61 |dow.}..{|Create a|
|00004360| 20 6e 65 77 20 62 75 74 | 74 6f 6e 7d 0d 09 70 72 | new but|ton}..pr|
|00004370| 6f 63 65 64 75 72 65 20 | 4e 65 77 42 75 74 74 6f |ocedure |NewButto|
|00004380| 6e 20 28 42 75 74 74 6f | 6e 3a 20 54 50 5f 42 4e |n (Butto|n: TP_BN|
|00004390| 75 6d 73 3b 09 09 09 09 | 09 09 7b 42 75 74 74 6f |ums;....|..{Butto|
|000043a0| 6e 20 6e 75 6d 62 65 72 | 09 09 09 09 09 09 09 09 |n number|........|
|000043b0| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 6c 65 66 74 |.}......|....left|
|000043c0| 2c 20 74 6f 70 2c 20 72 | 69 67 68 74 2c 20 62 6f |, top, r|ight, bo|
|000043d0| 74 74 6f 6d 3a 20 49 6e | 74 65 67 65 72 3b 09 09 |ttom: In|teger;..|
|000043e0| 09 09 09 7b 42 75 74 74 | 6f 6e 27 73 20 63 6f 2d |...{Butt|on's co-|
|000043f0| 6f 72 64 69 6e 61 74 65 | 73 20 28 6c 6f 63 61 6c |ordinate|s (local|
|00004400| 29 09 09 09 09 09 7d 0d | 09 09 09 09 09 09 09 09 |).....}.|........|
|00004410| 09 54 69 74 6c 65 3a 20 | 73 74 72 69 6e 67 3b 09 |.Title: |string;.|
|00004420| 09 09 09 09 09 09 09 09 | 09 7b 42 75 74 74 6f 6e |........|.{Button|
|00004430| 27 73 20 74 69 74 6c 65 | 09 09 09 09 09 09 09 09 |'s title|........|
|00004440| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 70 72 6f 63 |.}......|....proc|
|00004450| 49 44 3a 20 49 6e 74 65 | 67 65 72 3b 09 09 09 09 |ID: Inte|ger;....|
|00004460| 09 09 09 09 09 7b 42 75 | 74 74 6f 6e 27 73 20 64 |.....{Bu|tton's d|
|00004470| 65 66 69 6e 69 74 69 6f | 6e 20 49 44 09 09 09 09 |efinitio|n ID....|
|00004480| 09 09 09 7d 0d 09 09 09 | 09 09 09 09 09 09 45 6e |...}....|......En|
|00004490| 61 62 6c 65 64 46 6c 61 | 67 2c 20 53 65 6c 65 63 |abledFla|g, Selec|
|000044a0| 74 65 64 46 6c 61 67 3a | 20 62 6f 6f 6c 65 61 6e |tedFlag:| boolean|
|000044b0| 29 3b 09 09 09 09 7b 45 | 6e 61 62 6c 65 20 74 68 |);....{E|nable th|
|000044c0| 65 20 62 75 74 74 6f 6e | 3f 20 20 53 65 6c 65 63 |e button|?  Selec|
|000044d0| 74 20 74 68 65 20 62 75 | 74 74 6f 6e 3f 09 09 09 |t the bu|tton?...|
|000044e0| 7d 0d 0d 7b 43 72 65 61 | 74 65 20 61 20 6e 65 77 |}..{Crea|te a new|
|000044f0| 20 62 75 74 74 6f 6e 20 | 20 28 63 6f 2d 6f 72 64 | button | (co-ord|
|00004500| 69 6e 61 74 65 73 20 73 | 70 65 63 69 66 69 65 64 |inates s|pecified|
|00004510| 20 61 73 20 61 20 27 72 | 65 63 74 27 29 20 7d 0d | as a 'r|ect') }.|
|00004520| 09 70 72 6f 63 65 64 75 | 72 65 20 4e 65 77 42 75 |.procedu|re NewBu|
|00004530| 74 74 6f 6e 52 65 63 74 | 20 28 42 75 74 74 6f 6e |ttonRect| (Button|
|00004540| 3a 20 54 50 5f 42 4e 75 | 6d 73 3b 09 09 09 09 7b |: TP_BNu|ms;....{|
|00004550| 42 75 74 74 6f 6e 20 6e | 75 6d 62 65 72 09 09 09 |Button n|umber...|
|00004560| 09 09 09 09 09 09 7d 0d | 09 09 09 09 09 09 09 09 |......}.|........|
|00004570| 09 42 6f 75 6e 64 73 3a | 20 72 65 63 74 3b 09 09 |.Bounds:| rect;..|
|00004580| 09 09 09 09 09 09 09 09 | 7b 42 75 74 74 6f 6e 27 |........|{Button'|
|00004590| 73 20 63 6f 2d 6f 72 64 | 69 6e 61 74 65 73 20 28 |s co-ord|inates (|
|000045a0| 6c 6f 63 61 6c 29 09 09 | 09 09 09 7d 0d 09 09 09 |local)..|...}....|
|000045b0| 09 09 09 09 09 09 54 69 | 74 6c 65 3a 20 73 74 72 |......Ti|tle: str|
|000045c0| 69 6e 67 3b 09 09 09 09 | 09 09 09 09 09 09 7b 42 |ing;....|......{B|
|000045d0| 75 74 74 6f 6e 27 73 20 | 74 69 74 6c 65 09 09 09 |utton's |title...|
|000045e0| 09 09 09 09 09 09 7d 0d | 09 09 09 09 09 09 09 09 |......}.|........|
|000045f0| 09 70 72 6f 63 49 44 3a | 20 49 6e 74 65 67 65 72 |.procID:| Integer|
|00004600| 3b 09 09 09 09 09 09 09 | 09 09 7b 42 75 74 74 6f |;.......|..{Butto|
|00004610| 6e 27 73 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 49 |n's defi|nition I|
|00004620| 44 09 09 09 09 09 09 09 | 7d 0d 09 09 09 09 09 09 |D.......|}.......|
|00004630| 09 09 09 45 6e 61 62 6c | 65 64 46 6c 61 67 2c 20 |...Enabl|edFlag, |
|00004640| 53 65 6c 65 63 74 65 64 | 46 6c 61 67 3a 20 62 6f |Selected|Flag: bo|
|00004650| 6f 6c 65 61 6e 29 3b 09 | 09 09 09 7b 45 6e 61 62 |olean);.|...{Enab|
|00004660| 6c 65 20 74 68 65 20 62 | 75 74 74 6f 6e 3f 20 20 |le the b|utton?  |
|00004670| 53 65 6c 65 63 74 20 74 | 68 65 20 62 75 74 74 6f |Select t|he butto|
|00004680| 6e 3f 09 09 09 7d 0d 0d | 7b 44 65 6c 65 74 65 20 |n?...}..|{Delete |
|00004690| 61 20 62 75 74 74 6f 6e | 7d 0d 09 70 72 6f 63 65 |a button|}..proce|
|000046a0| 64 75 72 65 20 44 65 6c | 65 74 65 42 75 74 74 6f |dure Del|eteButto|
|000046b0| 6e 20 28 42 75 74 74 6f | 6e 3a 20 54 50 5f 42 4e |n (Butto|n: TP_BN|
|000046c0| 75 6d 73 29 3b 09 09 09 | 09 09 7b 42 75 74 74 6f |ums);...|..{Butto|
|000046d0| 6e 20 6e 75 6d 62 65 72 | 09 09 09 09 09 09 09 09 |n number|........|
|000046e0| 09 7d 0d 0d 7b 45 6e 61 | 62 6c 65 2f 64 69 73 61 |.}..{Ena|ble/disa|
|000046f0| 62 6c 65 20 61 20 62 75 | 74 74 6f 6e 7d 0d 09 70 |ble a bu|tton}..p|
|00004700| 72 6f 63 65 64 75 72 65 | 20 45 6e 61 62 6c 65 42 |rocedure| EnableB|
|00004710| 75 74 74 6f 6e 20 28 42 | 75 74 74 6f 6e 3a 20 54 |utton (B|utton: T|
|00004720| 50 5f 42 4e 75 6d 73 3b | 09 09 09 09 09 7b 42 75 |P_BNums;|.....{Bu|
|00004730| 74 74 6f 6e 20 6e 75 6d | 62 65 72 09 09 09 09 09 |tton num|ber.....|
|00004740| 09 09 09 09 7d 0d 09 09 | 09 09 09 09 09 09 09 45 |....}...|.......E|
|00004750| 6e 61 62 6c 65 64 46 6c | 61 67 3a 20 62 6f 6f 6c |nabledFl|ag: bool|
|00004760| 65 61 6e 29 3b 09 09 09 | 09 09 09 09 7b 45 6e 61 |ean);...|....{Ena|
|00004770| 62 6c 65 20 74 68 65 20 | 62 75 74 74 6f 6e 3f 09 |ble the |button?.|
|00004780| 09 09 09 09 09 09 09 7d | 0d 0d 7b 53 65 6c 65 63 |.......}|..{Selec|
|00004790| 74 2f 64 65 73 65 6c 65 | 63 74 20 61 20 62 75 74 |t/desele|ct a but|
|000047a0| 74 6f 6e 7d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |ton}..pr|ocedure |
|000047b0| 53 65 6c 65 63 74 42 75 | 74 74 6f 6e 20 28 42 75 |SelectBu|tton (Bu|
|000047c0| 74 74 6f 6e 3a 20 54 50 | 5f 42 4e 75 6d 73 3b 09 |tton: TP|_BNums;.|
|000047d0| 09 09 09 09 7b 42 75 74 | 74 6f 6e 20 6e 75 6d 62 |....{But|ton numb|
|000047e0| 65 72 09 09 09 09 09 09 | 09 09 09 7d 0d 09 09 09 |er......|...}....|
|000047f0| 09 09 09 09 09 09 53 65 | 6c 65 63 74 65 64 46 6c |......Se|lectedFl|
|00004800| 61 67 3a 20 62 6f 6f 6c | 65 61 6e 29 3b 09 09 09 |ag: bool|ean);...|
|00004810| 09 09 09 09 7b 53 65 6c | 65 63 74 20 74 68 65 20 |....{Sel|ect the |
|00004820| 62 75 74 74 6f 6e 3f 09 | 09 09 09 09 09 09 09 7d |button?.|.......}|
|00004830| 0d 0d 7b 44 65 74 65 72 | 6d 69 6e 65 20 69 66 20 |..{Deter|mine if |
|00004840| 61 20 62 75 74 74 6f 6e | 20 69 73 20 65 6e 61 62 |a button| is enab|
|00004850| 6c 65 64 7d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 42 |led}..fu|nction B|
|00004860| 75 74 74 6f 6e 49 73 45 | 6e 61 62 6c 65 64 20 28 |uttonIsE|nabled (|
|00004870| 42 75 74 74 6f 6e 3a 20 | 54 50 5f 42 4e 75 6d 73 |Button: |TP_BNums|
|00004880| 09 09 09 09 09 7b 42 75 | 74 74 6f 6e 20 6e 75 6d |.....{Bu|tton num|
|00004890| 62 65 72 09 09 09 09 09 | 09 09 09 09 7d 0d 09 09 |ber.....|....}...|
|000048a0| 09 09 09 09 09 09 09 29 | 3a 20 62 6f 6f 6c 65 61 |.......)|: boolea|
|000048b0| 6e 3b 09 09 09 09 09 09 | 09 09 09 09 7b 49 73 20 |n;......|....{Is |
|000048c0| 74 68 65 20 62 75 74 74 | 6f 6e 20 65 6e 61 62 6c |the butt|on enabl|
|000048d0| 65 64 3f 09 09 09 09 09 | 09 09 7d 0d 0d 7b 44 65 |ed?.....|..}..{De|
|000048e0| 74 65 72 6d 69 6e 65 20 | 69 66 20 61 20 62 75 74 |termine |if a but|
|000048f0| 74 6f 6e 20 69 73 20 73 | 65 6c 65 63 74 65 64 7d |ton is s|elected}|
|00004900| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 42 75 74 74 6f |..functi|on Butto|
|00004910| 6e 49 73 53 65 6c 65 63 | 74 65 64 20 28 42 75 74 |nIsSelec|ted (But|
|00004920| 74 6f 6e 3a 20 54 50 5f | 42 4e 75 6d 73 09 09 09 |ton: TP_|BNums...|
|00004930| 09 09 7b 42 75 74 74 6f | 6e 20 6e 75 6d 62 65 72 |..{Butto|n number|
|00004940| 09 09 09 09 09 09 09 09 | 09 7d 0d 09 09 09 09 09 |........|.}......|
|00004950| 09 09 09 09 29 3a 20 62 | 6f 6f 6c 65 61 6e 3b 09 |....): b|oolean;.|
|00004960| 09 09 09 09 09 09 09 09 | 09 7b 49 73 20 74 68 65 |........|.{Is the|
|00004970| 20 62 75 74 74 6f 6e 20 | 73 65 6c 65 63 74 65 64 | button |selected|
|00004980| 3f 09 09 09 09 09 09 7d | 0d 0d 7b 53 65 74 20 61 |?......}|..{Set a|
|00004990| 20 62 75 74 74 6f 6e 27 | 73 20 74 69 74 6c 65 7d | button'|s title}|
|000049a0| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 42 75 74 74 |..proced|ure Butt|
|000049b0| 6f 6e 54 69 74 6c 65 20 | 28 42 75 74 74 6f 6e 3a |onTitle |(Button:|
|000049c0| 20 54 50 5f 42 4e 75 6d | 73 3b 09 09 09 09 09 09 | TP_BNum|s;......|
|000049d0| 7b 42 75 74 74 6f 6e 20 | 6e 75 6d 62 65 72 09 09 |{Button |number..|
|000049e0| 09 09 09 09 09 09 09 7d | 0d 09 09 09 09 09 09 09 |.......}|........|
|000049f0| 09 09 54 69 74 6c 65 3a | 20 73 74 72 69 6e 67 29 |..Title:| string)|
|00004a00| 3b 09 09 09 09 09 09 09 | 09 09 7b 42 75 74 74 6f |;.......|..{Butto|
|00004a10| 6e 27 73 20 74 69 74 6c | 65 09 09 09 09 09 09 09 |n's titl|e.......|
|00004a20| 09 09 7d 0d 0d 7b 4d 61 | 6b 65 20 61 20 62 75 74 |..}..{Ma|ke a but|
|00004a30| 74 6f 6e 20 74 68 65 20 | 77 69 6e 64 6f 77 27 73 |ton the |window's|
|00004a40| 20 64 65 66 61 75 6c 74 | 20 62 75 74 74 6f 6e 7d | default| button}|
|00004a50| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 53 65 74 44 |..proced|ure SetD|
|00004a60| 65 66 61 75 6c 74 42 75 | 74 74 6f 6e 20 28 42 75 |efaultBu|tton (Bu|
|00004a70| 74 74 6f 6e 3a 20 54 50 | 5f 42 4e 75 6d 73 29 3b |tton: TP|_BNums);|
|00004a80| 09 09 09 09 7b 42 75 74 | 74 6f 6e 20 6e 75 6d 62 |....{But|ton numb|
|00004a90| 65 72 09 09 09 09 09 09 | 09 09 09 7d 0d 0d 7b 52 |er......|...}..{R|
|00004aa0| 65 6d 6f 76 65 20 74 68 | 65 20 22 64 65 66 61 75 |emove th|e "defau|
|00004ab0| 6c 74 20 62 75 74 74 6f | 6e 20 73 74 61 74 75 73 |lt butto|n status|
|00004ac0| 22 20 66 72 6f 6d 20 74 | 68 65 20 77 69 6e 64 6f |" from t|he windo|
|00004ad0| 77 27 73 20 64 65 66 61 | 75 6c 74 20 62 75 74 74 |w's defa|ult butt|
|00004ae0| 6f 6e 7d 0d 09 70 72 6f | 63 65 64 75 72 65 20 4e |on}..pro|cedure N|
|00004af0| 6f 44 65 66 61 75 6c 74 | 42 75 74 74 6f 6e 3b 0d |oDefault|Button;.|
|00004b00| 0d 7b 22 46 6c 61 73 68 | 22 20 61 20 70 75 73 68 |.{"Flash|" a push|
|00004b10| 20 62 75 74 74 6f 6e 20 | 61 73 20 74 68 6f 75 67 | button |as thoug|
|00004b20| 68 20 69 74 20 77 65 72 | 65 20 70 72 65 73 73 65 |h it wer|e presse|
|00004b30| 64 20 62 79 20 74 68 65 | 20 75 73 65 72 7d 0d 09 |d by the| user}..|
|00004b40| 70 72 6f 63 65 64 75 72 | 65 20 46 6c 61 73 68 42 |procedur|e FlashB|
|00004b50| 75 74 74 6f 6e 20 28 42 | 75 74 74 6f 6e 3a 20 54 |utton (B|utton: T|
|00004b60| 50 5f 42 4e 75 6d 73 29 | 3b 09 09 09 09 09 7b 42 |P_BNums)|;.....{B|
|00004b70| 75 74 74 6f 6e 20 6e 75 | 6d 62 65 72 09 09 09 09 |utton nu|mber....|
|00004b80| 09 09 09 09 09 7d 0d 0d | 0d 7b 3d 3d 3d 3d 3d 3d |.....}..|.{======|
|00004b90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004ba0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 20 |========|======= |
|00004bb0| 53 20 43 20 52 20 4f 20 | 4c 20 4c 20 20 20 42 20 |S C R O |L L   B |
|00004bc0| 41 20 52 20 53 20 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |A R S ==|========|
|00004bd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004be0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 09 7d 0d 7b |========|====.}.{|
|00004bf0| 41 6c 6c 20 73 63 72 6f | 6c 6c 20 62 61 72 20 6f |All scro|ll bar o|
|00004c00| 70 65 72 61 74 69 6f 6e | 73 20 70 65 72 74 61 69 |peration|s pertai|
|00004c10| 6e 20 74 6f 20 74 68 65 | 20 22 63 75 72 72 65 6e |n to the| "curren|
|00004c20| 74 22 20 77 69 6e 64 6f | 77 2e 7d 0d 0d 7b 43 72 |t" windo|w.}..{Cr|
|00004c30| 65 61 74 65 20 61 20 6e | 65 77 20 73 63 72 6f 6c |eate a n|ew scrol|
|00004c40| 6c 20 62 61 72 7d 0d 09 | 70 72 6f 63 65 64 75 72 |l bar}..|procedur|
|00004c50| 65 20 4e 65 77 53 63 72 | 6f 6c 6c 42 61 72 20 28 |e NewScr|ollBar (|
|00004c60| 53 63 72 6f 6c 6c 42 61 | 72 3a 20 54 50 5f 53 4e |ScrollBa|r: TP_SN|
|00004c70| 75 6d 73 3b 09 09 09 09 | 7b 53 63 72 6f 6c 6c 20 |ums;....|{Scroll |
|00004c80| 62 61 72 20 6e 75 6d 62 | 65 72 09 09 09 09 09 09 |bar numb|er......|
|00004c90| 09 09 7d 0d 09 09 09 09 | 09 09 09 09 09 6c 65 66 |..}.....|.....lef|
|00004ca0| 74 2c 20 74 6f 70 2c 20 | 72 69 67 68 74 2c 20 62 |t, top, |right, b|
|00004cb0| 6f 74 74 6f 6d 3a 20 49 | 6e 74 65 67 65 72 3b 09 |ottom: I|nteger;.|
|00004cc0| 09 09 09 09 7b 53 63 72 | 6f 6c 6c 20 62 61 72 27 |....{Scr|oll bar'|
|00004cd0| 73 20 63 6f 2d 6f 72 64 | 69 6e 61 74 65 73 20 28 |s co-ord|inates (|
|00004ce0| 6c 6f 63 61 6c 29 09 09 | 09 09 7d 0d 09 09 09 09 |local)..|..}.....|
|00004cf0| 09 09 09 09 09 45 6e 61 | 62 6c 65 64 46 6c 61 67 |.....Ena|bledFlag|
|00004d00| 3a 20 62 6f 6f 6c 65 61 | 6e 3b 09 09 09 09 09 09 |: boolea|n;......|
|00004d10| 09 7b 45 6e 61 62 6c 65 | 20 74 68 65 20 73 63 72 |.{Enable| the scr|
|00004d20| 6f 6c 6c 20 62 61 72 3f | 09 09 09 09 09 09 09 7d |oll bar?|.......}|
|00004d30| 0d 09 09 09 09 09 09 09 | 09 09 6d 69 6e 69 6d 75 |........|..minimu|
|00004d40| 6d 2c 20 76 61 6c 75 65 | 2c 20 6d 61 78 69 6d 75 |m, value|, maximu|
|00004d50| 6d 3a 20 69 6e 74 65 67 | 65 72 29 3b 09 09 09 09 |m: integ|er);....|
|00004d60| 7b 4d 69 6e 69 6d 75 6d | 2c 20 63 75 72 72 65 6e |{Minimum|, curren|
|00004d70| 74 2c 20 61 6e 64 20 6d | 61 78 69 6d 75 6d 20 76 |t, and m|aximum v|
|00004d80| 61 6c 75 65 09 09 09 7d | 0d 0d 7b 43 72 65 61 74 |alue...}|..{Creat|
|00004d90| 65 20 61 20 6e 65 77 20 | 73 63 72 6f 6c 6c 20 62 |e a new |scroll b|
|00004da0| 61 72 20 28 63 6f 2d 6f | 72 64 69 6e 61 74 65 73 |ar (co-o|rdinates|
|00004db0| 20 73 70 65 63 69 66 69 | 65 64 20 61 73 20 61 20 | specifi|ed as a |
|00004dc0| 27 72 65 63 74 27 29 20 | 7d 0d 09 70 72 6f 63 65 |'rect') |}..proce|
|00004dd0| 64 75 72 65 20 4e 65 77 | 53 63 72 6f 6c 6c 42 61 |dure New|ScrollBa|
|00004de0| 72 52 65 63 74 20 28 53 | 63 72 6f 6c 6c 42 61 72 |rRect (S|crollBar|
|00004df0| 3a 20 54 50 5f 53 4e 75 | 6d 73 3b 09 09 09 7b 53 |: TP_SNu|ms;...{S|
|00004e00| 63 72 6f 6c 6c 20 62 61 | 72 20 6e 75 6d 62 65 72 |croll ba|r number|
|00004e10| 09 09 09 09 09 09 09 09 | 7d 0d 09 09 09 09 09 09 |........|}.......|
|00004e20| 09 09 09 42 6f 75 6e 64 | 73 3a 20 72 65 63 74 3b |...Bound|s: rect;|
|00004e30| 09 09 09 09 09 09 09 09 | 09 09 7b 53 63 72 6f 6c |........|..{Scrol|
|00004e40| 6c 20 62 61 72 27 73 20 | 63 6f 2d 6f 72 64 69 6e |l bar's |co-ordin|
|00004e50| 61 74 65 73 20 28 6c 6f | 63 61 6c 29 09 09 09 09 |ates (lo|cal)....|
|00004e60| 7d 0d 09 09 09 09 09 09 | 09 09 09 45 6e 61 62 6c |}.......|...Enabl|
|00004e70| 65 64 46 6c 61 67 3a 20 | 62 6f 6f 6c 65 61 6e 3b |edFlag: |boolean;|
|00004e80| 09 09 09 09 09 09 09 7b | 45 6e 61 62 6c 65 20 74 |.......{|Enable t|
|00004e90| 68 65 20 73 63 72 6f 6c | 6c 20 62 61 72 3f 09 09 |he scrol|l bar?..|
|00004ea0| 09 09 09 09 09 7d 0d 09 | 09 09 09 09 09 09 09 09 |.....}..|........|
|00004eb0| 6d 69 6e 69 6d 75 6d 2c | 20 76 61 6c 75 65 2c 20 |minimum,| value, |
|00004ec0| 6d 61 78 69 6d 75 6d 3a | 20 69 6e 74 65 67 65 72 |maximum:| integer|
|00004ed0| 29 3b 09 09 09 09 7b 4d | 69 6e 69 6d 75 6d 2c 20 |);....{M|inimum, |
|00004ee0| 63 75 72 72 65 6e 74 2c | 20 61 6e 64 20 6d 61 78 |current,| and max|
|00004ef0| 69 6d 75 6d 20 76 61 6c | 75 65 09 09 09 7d 0d 0d |imum val|ue...}..|
|00004f00| 7b 44 65 6c 65 74 65 20 | 61 20 73 63 72 6f 6c 6c |{Delete |a scroll|
|00004f10| 20 62 61 72 7d 0d 09 70 | 72 6f 63 65 64 75 72 65 | bar}..p|rocedure|
|00004f20| 20 44 65 6c 65 74 65 53 | 63 72 6f 6c 6c 42 61 72 | DeleteS|crollBar|
|00004f30| 20 28 53 63 72 6f 6c 6c | 42 61 72 3a 20 54 50 5f | (Scroll|Bar: TP_|
|00004f40| 53 4e 75 6d 73 29 3b 09 | 09 09 09 7b 53 63 72 6f |SNums);.|...{Scro|
|00004f50| 6c 6c 20 62 61 72 20 6e | 75 6d 62 65 72 09 09 09 |ll bar n|umber...|
|00004f60| 09 09 09 09 09 7d 0d 0d | 7b 45 6e 61 62 6c 65 2f |.....}..|{Enable/|
|00004f70| 64 69 73 61 62 6c 65 20 | 61 20 73 63 72 6f 6c 6c |disable |a scroll|
|00004f80| 20 62 61 72 7d 0d 09 70 | 72 6f 63 65 64 75 72 65 | bar}..p|rocedure|
|00004f90| 20 45 6e 61 62 6c 65 53 | 63 72 6f 6c 6c 42 61 72 | EnableS|crollBar|
|00004fa0| 20 28 53 63 72 6f 6c 6c | 42 61 72 3a 20 54 50 5f | (Scroll|Bar: TP_|
|00004fb0| 53 4e 75 6d 73 3b 09 09 | 09 09 7b 53 63 72 6f 6c |SNums;..|..{Scrol|
|00004fc0| 6c 20 62 61 72 20 6e 75 | 6d 62 65 72 09 09 09 09 |l bar nu|mber....|
|00004fd0| 09 09 09 09 7d 0d 09 09 | 09 09 09 09 09 09 09 45 |....}...|.......E|
|00004fe0| 6e 61 62 6c 65 64 46 6c | 61 67 3a 20 62 6f 6f 6c |nabledFl|ag: bool|
|00004ff0| 65 61 6e 29 3b 09 09 09 | 09 09 09 09 7b 45 6e 61 |ean);...|....{Ena|
|00005000| 62 6c 65 20 74 68 65 20 | 73 63 72 6f 6c 6c 20 62 |ble the |scroll b|
|00005010| 61 72 3f 09 09 09 09 09 | 09 09 7d 0d 0d 7b 47 65 |ar?.....|..}..{Ge|
|00005020| 74 20 61 20 73 63 72 6f | 6c 6c 20 62 61 72 27 73 |t a scro|ll bar's|
|00005030| 20 6d 69 6e 69 6d 75 6d | 20 73 65 74 74 69 6e 67 | minimum| setting|
|00005040| 7d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 47 65 74 53 |}..funct|ion GetS|
|00005050| 63 72 6f 6c 6c 42 61 72 | 4d 69 6e 20 28 53 63 72 |crollBar|Min (Scr|
|00005060| 6f 6c 6c 42 61 72 3a 20 | 54 50 5f 53 4e 75 6d 73 |ollBar: |TP_SNums|
|00005070| 09 09 09 09 7b 53 63 72 | 6f 6c 6c 20 62 61 72 20 |....{Scr|oll bar |
|00005080| 6e 75 6d 62 65 72 09 09 | 09 09 09 09 09 09 7d 0d |number..|......}.|
|00005090| 09 09 09 09 09 09 09 09 | 09 29 3a 20 69 6e 74 65 |........|.): inte|
|000050a0| 67 65 72 3b 09 09 09 09 | 09 09 09 09 09 09 09 7b |ger;....|.......{|
|000050b0| 53 63 72 6f 6c 6c 20 62 | 61 72 27 73 20 6d 69 6e |Scroll b|ar's min|
|000050c0| 69 6d 75 6d 20 73 65 74 | 74 69 6e 67 09 09 09 09 |imum set|ting....|
|000050d0| 09 7d 0d 0d 7b 53 65 74 | 20 61 20 73 63 72 6f 6c |.}..{Set| a scrol|
|000050e0| 6c 20 62 61 72 27 73 20 | 6d 69 6e 69 6d 75 6d 20 |l bar's |minimum |
|000050f0| 73 65 74 74 69 6e 67 7d | 0d 09 70 72 6f 63 65 64 |setting}|..proced|
|00005100| 75 72 65 20 53 65 74 53 | 63 72 6f 6c 6c 42 61 72 |ure SetS|crollBar|
|00005110| 4d 69 6e 20 28 53 63 72 | 6f 6c 6c 42 61 72 3a 20 |Min (Scr|ollBar: |
|00005120| 54 50 5f 53 4e 75 6d 73 | 3b 09 09 09 09 7b 53 63 |TP_SNums|;....{Sc|
|00005130| 72 6f 6c 6c 20 62 61 72 | 20 6e 75 6d 62 65 72 09 |roll bar| number.|
|00005140| 09 09 09 09 09 09 09 7d | 0d 09 09 09 09 09 09 09 |.......}|........|
|00005150| 09 09 6d 69 6e 69 6d 75 | 6d 3a 20 69 6e 74 65 67 |..minimu|m: integ|
|00005160| 65 72 29 3b 09 09 09 09 | 09 09 09 09 7b 53 63 72 |er);....|....{Scr|
|00005170| 6f 6c 6c 20 62 61 72 27 | 73 20 6d 69 6e 69 6d 75 |oll bar'|s minimu|
|00005180| 6d 20 73 65 74 74 69 6e | 67 09 09 09 09 09 7d 0d |m settin|g.....}.|
|00005190| 0d 7b 47 65 74 20 61 20 | 73 63 72 6f 6c 6c 20 62 |.{Get a |scroll b|
|000051a0| 61 72 27 73 20 6d 61 78 | 69 6d 75 6d 20 73 65 74 |ar's max|imum set|
|000051b0| 74 69 6e 67 7d 0d 09 66 | 75 6e 63 74 69 6f 6e 20 |ting}..f|unction |
|000051c0| 47 65 74 53 63 72 6f 6c | 6c 42 61 72 4d 61 78 20 |GetScrol|lBarMax |
|000051d0| 28 53 63 72 6f 6c 6c 42 | 61 72 3a 20 54 50 5f 53 |(ScrollB|ar: TP_S|
|000051e0| 4e 75 6d 73 09 09 09 09 | 7b 53 63 72 6f 6c 6c 20 |Nums....|{Scroll |
|000051f0| 62 61 72 20 6e 75 6d 62 | 65 72 09 09 09 09 09 09 |bar numb|er......|
|00005200| 09 09 7d 0d 09 09 09 09 | 09 09 09 09 09 29 3a 20 |..}.....|.....): |
|00005210| 69 6e 74 65 67 65 72 3b | 09 09 09 09 09 09 09 09 |integer;|........|
|00005220| 09 09 09 7b 53 63 72 6f | 6c 6c 20 62 61 72 27 73 |...{Scro|ll bar's|
|00005230| 20 6d 61 78 69 6d 75 6d | 20 73 65 74 74 69 6e 67 | maximum| setting|
|00005240| 09 09 09 09 09 7d 0d 0d | 7b 53 65 74 20 61 20 73 |.....}..|{Set a s|
|00005250| 63 72 6f 6c 6c 20 62 61 | 72 27 73 20 6d 61 78 69 |croll ba|r's maxi|
|00005260| 6d 75 6d 20 73 65 74 74 | 69 6e 67 7d 0d 09 70 72 |mum sett|ing}..pr|
|00005270| 6f 63 65 64 75 72 65 20 | 53 65 74 53 63 72 6f 6c |ocedure |SetScrol|
|00005280| 6c 42 61 72 4d 61 78 20 | 28 53 63 72 6f 6c 6c 42 |lBarMax |(ScrollB|
|00005290| 61 72 3a 20 54 50 5f 53 | 4e 75 6d 73 3b 09 09 09 |ar: TP_S|Nums;...|
|000052a0| 09 7b 53 63 72 6f 6c 6c | 20 62 61 72 20 6e 75 6d |.{Scroll| bar num|
|000052b0| 62 65 72 09 09 09 09 09 | 09 09 09 7d 0d 09 09 09 |ber.....|...}....|
|000052c0| 09 09 09 09 09 09 6d 61 | 78 69 6d 75 6d 3a 20 69 |......ma|ximum: i|
|000052d0| 6e 74 65 67 65 72 29 3b | 09 09 09 09 09 09 09 09 |nteger);|........|
|000052e0| 7b 53 63 72 6f 6c 6c 20 | 62 61 72 27 73 20 6d 61 |{Scroll |bar's ma|
|000052f0| 78 69 6d 75 6d 20 73 65 | 74 74 69 6e 67 09 09 09 |ximum se|tting...|
|00005300| 09 09 7d 0d 0d 7b 47 65 | 74 20 61 20 73 63 72 6f |..}..{Ge|t a scro|
|00005310| 6c 6c 20 62 61 72 27 73 | 20 63 75 72 72 65 6e 74 |ll bar's| current|
|00005320| 20 76 61 6c 75 65 7d 0d | 09 66 75 6e 63 74 69 6f | value}.|.functio|
|00005330| 6e 20 47 65 74 53 63 72 | 6f 6c 6c 42 61 72 56 61 |n GetScr|ollBarVa|
|00005340| 6c 20 28 53 63 72 6f 6c | 6c 42 61 72 3a 20 54 50 |l (Scrol|lBar: TP|
|00005350| 5f 53 4e 75 6d 73 09 09 | 09 09 7b 53 63 72 6f 6c |_SNums..|..{Scrol|
|00005360| 6c 20 62 61 72 20 6e 75 | 6d 62 65 72 09 09 09 09 |l bar nu|mber....|
|00005370| 09 09 09 09 7d 0d 09 09 | 09 09 09 09 09 09 09 29 |....}...|.......)|
|00005380| 3a 20 69 6e 74 65 67 65 | 72 3b 09 09 09 09 09 09 |: intege|r;......|
|00005390| 09 09 09 09 09 7b 53 63 | 72 6f 6c 6c 20 62 61 72 |.....{Sc|roll bar|
|000053a0| 27 73 20 63 75 72 72 65 | 6e 74 20 76 61 6c 75 65 |'s curre|nt value|
|000053b0| 09 09 09 09 09 09 7d 0d | 0d 7b 53 65 74 20 61 20 |......}.|.{Set a |
|000053c0| 73 63 72 6f 6c 6c 20 62 | 61 72 27 73 20 63 75 72 |scroll b|ar's cur|
|000053d0| 72 65 6e 74 20 76 61 6c | 75 65 7d 0d 09 70 72 6f |rent val|ue}..pro|
|000053e0| 63 65 64 75 72 65 20 53 | 65 74 53 63 72 6f 6c 6c |cedure S|etScroll|
|000053f0| 42 61 72 56 61 6c 20 28 | 53 63 72 6f 6c 6c 42 61 |BarVal (|ScrollBa|
|00005400| 72 3a 20 54 50 5f 53 4e | 75 6d 73 3b 09 09 09 09 |r: TP_SN|ums;....|
|00005410| 7b 53 63 72 6f 6c 6c 20 | 62 61 72 20 6e 75 6d 62 |{Scroll |bar numb|
|00005420| 65 72 09 09 09 09 09 09 | 09 09 7d 0d 09 09 09 09 |er......|..}.....|
|00005430| 09 09 09 09 09 76 61 6c | 75 65 3a 20 69 6e 74 65 |.....val|ue: inte|
|00005440| 67 65 72 29 3b 09 09 09 | 09 09 09 09 09 09 7b 53 |ger);...|......{S|
|00005450| 63 72 6f 6c 6c 20 62 61 | 72 27 73 20 63 75 72 72 |croll ba|r's curr|
|00005460| 65 6e 74 20 76 61 6c 75 | 65 09 09 09 09 09 09 7d |ent valu|e......}|
|00005470| 0d 0d 0d 7b 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |...{====|========|
|00005480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005490| 3d 3d 3d 3d 3d 3d 3d 3d | 20 45 20 44 20 49 20 54 |========| E D I T|
|000054a0| 20 49 20 4e 20 47 20 20 | 20 46 20 49 20 45 20 4c | I N G  | F I E L|
|000054b0| 20 44 20 53 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | D S ===|========|
|000054c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000054d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 09 7d 0d 7b 41 6c 6c |========|=.}.{All|
|000054e0| 20 73 63 72 6f 6c 6c 20 | 62 61 72 20 6f 70 65 72 | scroll |bar oper|
|000054f0| 61 74 69 6f 6e 73 20 70 | 65 72 74 61 69 6e 20 74 |ations p|ertain t|
|00005500| 6f 20 74 68 65 20 22 63 | 75 72 72 65 6e 74 22 20 |o the "c|urrent" |
|00005510| 77 69 6e 64 6f 77 2e 7d | 0d 0d 7b 43 72 65 61 74 |window.}|..{Creat|
|00005520| 65 20 61 20 6e 65 77 20 | 66 69 65 6c 64 7d 0d 09 |e a new |field}..|
|00005530| 70 72 6f 63 65 64 75 72 | 65 20 4e 65 77 46 69 65 |procedur|e NewFie|
|00005540| 6c 64 20 28 46 69 65 6c | 64 3a 20 54 50 5f 54 65 |ld (Fiel|d: TP_Te|
|00005550| 4e 75 6d 73 3b 09 09 09 | 09 09 09 7b 46 69 65 6c |Nums;...|...{Fiel|
|00005560| 64 20 6e 75 6d 62 65 72 | 09 09 09 09 09 09 09 09 |d number|........|
|00005570| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 6c 65 66 74 |.}......|....left|
|00005580| 2c 20 74 6f 70 2c 20 72 | 69 67 68 74 2c 20 62 6f |, top, r|ight, bo|
|00005590| 74 74 6f 6d 3a 20 49 6e | 74 65 67 65 72 3b 09 09 |ttom: In|teger;..|
|000055a0| 09 09 09 7b 46 69 65 6c | 64 27 73 20 76 69 65 77 |...{Fiel|d's view|
|000055b0| 69 6e 67 20 61 72 65 61 | 20 63 6f 2d 6f 72 64 69 |ing area| co-ordi|
|000055c0| 6e 61 74 65 73 20 28 6c | 6f 63 61 6c 29 09 09 7d |nates (l|ocal)..}|
|000055d0| 0d 09 09 09 09 09 09 09 | 09 09 68 53 74 72 3a 20 |........|..hStr: |
|000055e0| 48 61 6e 64 6c 65 3b 09 | 09 09 09 09 09 09 09 09 |Handle;.|........|
|000055f0| 09 7b 48 61 6e 64 6c 65 | 20 74 6f 20 65 64 69 74 |.{Handle| to edit|
|00005600| 20 66 69 65 6c 64 27 73 | 20 74 65 78 74 09 09 09 | field's| text...|
|00005610| 09 09 09 7d 0d 09 09 09 | 09 09 09 09 09 09 74 65 |...}....|......te|
|00005620| 54 79 70 65 3a 20 69 6e | 74 65 67 65 72 3b 09 09 |Type: in|teger;..|
|00005630| 09 09 09 09 09 09 09 7b | 54 79 70 65 3a 20 62 6f |.......{|Type: bo|
|00005640| 78 20 61 72 6f 75 6e 64 | 20 66 69 65 6c 64 20 61 |x around| field a|
|00005650| 6e 64 2f 6f 72 20 43 52 | 20 61 6c 6c 6f 77 65 64 |nd/or CR| allowed|
|00005660| 3f 09 09 7d 0d 09 09 09 | 09 09 09 09 09 09 4a 75 |?..}....|......Ju|
|00005670| 73 74 3a 20 69 6e 74 65 | 67 65 72 29 3b 09 09 09 |st: inte|ger);...|
|00005680| 09 09 09 09 09 09 7b 4a | 75 73 74 69 66 69 63 61 |......{J|ustifica|
|00005690| 74 69 6f 6e 3a 20 6c 65 | 66 74 2c 20 63 65 6e 74 |tion: le|ft, cent|
|000056a0| 65 72 2c 20 72 69 67 68 | 74 09 09 09 09 09 7d 0d |er, righ|t.....}.|
|000056b0| 0d 7b 43 72 65 61 74 65 | 20 61 20 6e 65 77 20 66 |.{Create| a new f|
|000056c0| 69 65 6c 64 20 28 63 6f | 2d 6f 72 64 69 6e 61 74 |ield (co|-ordinat|
|000056d0| 65 73 20 73 70 65 63 69 | 66 69 65 64 20 61 73 20 |es speci|fied as |
|000056e0| 61 20 27 72 65 63 74 27 | 29 20 7d 0d 09 70 72 6f |a 'rect'|) }..pro|
|000056f0| 63 65 64 75 72 65 20 4e | 65 77 46 69 65 6c 64 52 |cedure N|ewFieldR|
|00005700| 65 63 74 20 28 46 69 65 | 6c 64 3a 20 54 50 5f 54 |ect (Fie|ld: TP_T|
|00005710| 65 4e 75 6d 73 3b 09 09 | 09 09 09 7b 46 69 65 6c |eNums;..|...{Fiel|
|00005720| 64 20 6e 75 6d 62 65 72 | 09 09 09 09 09 09 09 09 |d number|........|
|00005730| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 42 6f 75 6e |.}......|....Boun|
|00005740| 64 73 3a 20 72 65 63 74 | 3b 09 09 09 09 09 09 09 |ds: rect|;.......|
|00005750| 09 09 09 7b 46 69 65 6c | 64 27 73 20 76 69 65 77 |...{Fiel|d's view|
|00005760| 69 6e 67 20 61 72 65 61 | 20 63 6f 2d 6f 72 64 69 |ing area| co-ordi|
|00005770| 6e 61 74 65 73 20 28 6c | 6f 63 61 6c 29 09 09 7d |nates (l|ocal)..}|
|00005780| 0d 09 09 09 09 09 09 09 | 09 09 68 53 74 72 3a 20 |........|..hStr: |
|00005790| 48 61 6e 64 6c 65 3b 09 | 09 09 09 09 09 09 09 09 |Handle;.|........|
|000057a0| 09 7b 48 61 6e 64 6c 65 | 20 74 6f 20 65 64 69 74 |.{Handle| to edit|
|000057b0| 20 66 69 65 6c 64 27 73 | 20 74 65 78 74 09 09 09 | field's| text...|
|000057c0| 09 09 09 7d 0d 09 09 09 | 09 09 09 09 09 09 74 65 |...}....|......te|
|000057d0| 54 79 70 65 3a 20 69 6e | 74 65 67 65 72 3b 09 09 |Type: in|teger;..|
|000057e0| 09 09 09 09 09 09 09 7b | 54 79 70 65 3a 20 62 6f |.......{|Type: bo|
|000057f0| 78 20 61 72 6f 75 6e 64 | 20 66 69 65 6c 64 20 61 |x around| field a|
|00005800| 6e 64 2f 6f 72 20 43 52 | 20 61 6c 6c 6f 77 65 64 |nd/or CR| allowed|
|00005810| 3f 09 09 7d 0d 09 09 09 | 09 09 09 09 09 09 4a 75 |?..}....|......Ju|
|00005820| 73 74 3a 20 69 6e 74 65 | 67 65 72 29 3b 09 09 09 |st: inte|ger);...|
|00005830| 09 09 09 09 09 09 7b 4a | 75 73 74 69 66 69 63 61 |......{J|ustifica|
|00005840| 74 69 6f 6e 3a 20 6c 65 | 66 74 2c 20 63 65 6e 74 |tion: le|ft, cent|
|00005850| 65 72 2c 20 72 69 67 68 | 74 09 09 09 09 09 7d 0d |er, righ|t.....}.|
|00005860| 0d 7b 44 65 6c 65 74 65 | 20 61 20 66 69 65 6c 64 |.{Delete| a field|
|00005870| 7d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 44 65 6c |}..proce|dure Del|
|00005880| 65 74 65 46 69 65 6c 64 | 20 28 46 69 65 6c 64 3a |eteField| (Field:|
|00005890| 20 54 50 5f 54 65 4e 75 | 6d 73 29 3b 09 09 09 09 | TP_TeNu|ms);....|
|000058a0| 09 09 7b 46 69 65 6c 64 | 20 6e 75 6d 62 65 72 09 |..{Field| number.|
|000058b0| 09 09 09 09 09 09 09 09 | 7d 0d 0d 7b 41 63 74 69 |........|}..{Acti|
|000058c0| 76 61 74 65 20 61 20 20 | 66 69 65 6c 64 7d 0d 09 |vate a  |field}..|
|000058d0| 70 72 6f 63 65 64 75 72 | 65 20 41 63 74 69 76 61 |procedur|e Activa|
|000058e0| 74 65 46 69 65 6c 64 20 | 28 46 69 65 6c 64 3a 20 |teField |(Field: |
|000058f0| 54 50 5f 54 65 4e 75 6d | 73 3b 09 09 09 09 09 7b |TP_TeNum|s;.....{|
|00005900| 46 69 65 6c 64 20 6e 75 | 6d 62 65 72 09 09 09 09 |Field nu|mber....|
|00005910| 09 09 09 09 09 7d 0d 09 | 09 09 09 09 09 09 09 09 |.....}..|........|
|00005920| 53 65 6c 65 63 74 69 6f | 6e 3a 20 69 6e 74 65 67 |Selectio|n: integ|
|00005930| 65 72 29 3b 09 09 09 09 | 09 09 09 09 7b 54 65 78 |er);....|....{Tex|
|00005940| 74 20 73 65 6c 65 63 74 | 69 6f 6e 3a 20 61 6c 6c |t select|ion: all|
|00005950| 2c 20 73 74 61 72 74 2c | 20 65 6e 64 09 09 09 09 |, start,| end....|
|00005960| 09 7d 0d 0d 7b 44 65 61 | 63 74 69 76 61 74 65 20 |.}..{Dea|ctivate |
|00005970| 74 68 65 20 61 63 74 69 | 76 65 20 66 69 65 6c 64 |the acti|ve field|
|00005980| 7d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 44 65 61 |}..proce|dure Dea|
|00005990| 63 74 69 76 61 74 65 46 | 69 65 6c 64 3b 0d 0d 7b |ctivateF|ield;..{|
|000059a0| 50 72 6f 63 65 73 73 20 | 61 20 6d 6f 75 73 65 20 |Process |a mouse |
|000059b0| 63 6c 69 63 6b 20 69 6e | 20 61 6e 20 69 6e 61 63 |click in| an inac|
|000059c0| 74 69 76 65 20 66 69 65 | 6c 64 2e 20 20 54 68 65 |tive fie|ld.  The|
|000059d0| 20 63 6c 69 63 6b 20 68 | 61 73 20 62 65 65 6e 20 | click h|as been |
|000059e0| 64 65 74 65 63 74 65 64 | 20 62 79 20 74 68 65 20 |detected| by the |
|000059f0| 50 6f 6c 6c 53 79 73 74 | 65 6d 20 70 72 6f 63 65 |PollSyst|em proce|
|00005a00| 64 75 72 65 2e 7d 0d 09 | 70 72 6f 63 65 64 75 72 |dure.}..|procedur|
|00005a10| 65 20 43 6c 69 63 6b 49 | 6e 46 69 65 6c 64 3b 0d |e ClickI|nField;.|
|00005a20| 0d 7b 47 65 74 20 74 68 | 65 20 61 63 74 69 76 65 |.{Get th|e active|
|00005a30| 20 66 69 65 6c 64 27 73 | 20 65 64 69 74 65 64 20 | field's| edited |
|00005a40| 74 65 78 74 7d 0d 09 70 | 72 6f 63 65 64 75 72 65 |text}..p|rocedure|
|00005a50| 20 47 65 74 46 69 65 6c | 64 53 74 72 69 6e 67 20 | GetFiel|dString |
|00005a60| 28 76 61 72 20 45 64 69 | 74 53 74 72 69 6e 67 3a |(var Edi|tString:|
|00005a70| 20 73 74 72 32 35 35 29 | 3b 09 09 09 09 7b 46 69 | str255)|;....{Fi|
|00005a80| 65 6c 64 27 73 20 65 64 | 69 74 65 64 20 74 65 78 |eld's ed|ited tex|
|00005a90| 74 09 09 09 09 09 09 09 | 09 7d 0d 0d 7b 53 61 76 |t.......|.}..{Sav|
|00005aa0| 65 20 74 68 65 20 61 63 | 74 69 76 65 20 66 69 65 |e the ac|tive fie|
|00005ab0| 6c 64 27 73 20 65 64 69 | 74 65 64 20 74 65 78 74 |ld's edi|ted text|
|00005ac0| 20 69 6e 20 74 68 65 20 | 66 69 65 6c 64 27 73 20 | in the |field's |
|00005ad0| 73 74 72 69 6e 67 7d 0d | 09 70 72 6f 63 65 64 75 |string}.|.procedu|
|00005ae0| 72 65 20 53 61 76 65 46 | 69 65 6c 64 53 74 72 69 |re SaveF|ieldStri|
|00005af0| 6e 67 3b 0d 0d 7b 44 65 | 74 65 72 6d 69 6e 65 20 |ng;..{De|termine |
|00005b00| 74 68 65 20 61 63 74 69 | 76 65 20 66 69 65 6c 64 |the acti|ve field|
|00005b10| 20 6e 75 6d 62 65 72 7d | 0d 09 66 75 6e 63 74 69 | number}|..functi|
|00005b20| 6f 6e 20 41 63 74 69 76 | 65 46 69 65 6c 64 4e 75 |on Activ|eFieldNu|
|00005b30| 6d 62 65 72 3a 20 69 6e | 74 65 67 65 72 3b 09 09 |mber: in|teger;..|
|00005b40| 09 09 09 09 09 7b 41 63 | 74 69 76 65 20 66 69 65 |.....{Ac|tive fie|
|00005b50| 6c 64 20 6e 75 6d 62 65 | 72 09 09 09 09 09 09 09 |ld numbe|r.......|
|00005b60| 7d 0d 0d 7b 54 75 72 6e | 20 73 74 72 69 6e 67 20 |}..{Turn| string |
|00005b70| 6c 65 6e 67 74 68 20 6c | 69 6d 69 74 69 6e 67 20 |length l|imiting |
|00005b80| 6f 6e 2f 6f 66 66 20 66 | 6f 72 20 65 61 63 68 20 |on/off f|or each |
|00005b90| 6e 65 77 20 66 69 65 6c | 64 20 63 72 65 61 74 65 |new fiel|d create|
|00005ba0| 64 20 73 74 61 72 74 69 | 6e 67 20 6e 6f 77 7d 0d |d starti|ng now}.|
|00005bb0| 09 70 72 6f 63 65 64 75 | 72 65 20 46 69 65 6c 64 |.procedu|re Field|
|00005bc0| 4c 65 6e 67 74 68 4c 69 | 6d 69 74 20 28 4c 69 6d |LengthLi|mit (Lim|
|00005bd0| 69 74 73 3a 20 62 6f 6f | 6c 65 61 6e 29 3b 09 09 |its: boo|lean);..|
|00005be0| 09 09 09 7b 53 68 6f 75 | 6c 64 20 6e 65 77 6c 79 |...{Shou|ld newly|
|00005bf0| 20 63 72 65 61 74 65 64 | 20 66 69 65 6c 64 73 20 | created| fields |
|00005c00| 62 65 20 6c 65 6e 67 74 | 68 2d 6c 69 6d 69 74 65 |be lengt|h-limite|
|00005c10| 64 3f 09 7d 0d 0d 7b 4f | 66 66 73 65 74 20 61 20 |d?.}..{O|ffset a |
|00005c20| 66 69 65 6c 64 7d 0d 09 | 70 72 6f 63 65 64 75 72 |field}..|procedur|
|00005c30| 65 20 4f 66 66 73 65 74 | 46 69 65 6c 64 20 28 46 |e Offset|Field (F|
|00005c40| 69 65 6c 64 3a 20 54 50 | 5f 54 65 4e 75 6d 73 3b |ield: TP|_TeNums;|
|00005c50| 09 09 09 09 09 09 7b 46 | 69 65 6c 64 20 6e 75 6d |......{F|ield num|
|00005c60| 62 65 72 09 09 09 09 09 | 09 09 09 09 7d 0d 09 09 |ber.....|....}...|
|00005c70| 09 09 09 09 09 09 09 64 | 68 2c 20 64 76 3a 20 69 |.......d|h, dv: i|
|00005c80| 6e 74 65 67 65 72 29 3b | 09 09 09 09 09 09 09 09 |nteger);|........|
|00005c90| 09 7b 4e 75 6d 62 65 72 | 20 6f 66 20 70 69 78 65 |.{Number| of pixe|
|00005ca0| 6c 73 20 74 6f 20 62 65 | 20 6f 66 66 73 65 74 20 |ls to be| offset |
|00005cb0| 28 68 6f 72 69 7a 2f 76 | 65 72 74 29 09 09 7d 0d |(horiz/v|ert)..}.|
|00005cc0| 0d 7b 50 61 73 74 65 20 | 74 65 78 74 20 69 6e 74 |.{Paste |text int|
|00005cd0| 6f 20 61 20 66 69 65 6c | 64 7d 0d 09 70 72 6f 63 |o a fiel|d}..proc|
|00005ce0| 65 64 75 72 65 20 50 61 | 73 74 65 49 6e 74 6f 46 |edure Pa|steIntoF|
|00005cf0| 69 65 6c 64 20 28 46 69 | 65 6c 64 3a 20 54 50 5f |ield (Fi|eld: TP_|
|00005d00| 54 65 4e 75 6d 73 3b 09 | 09 09 09 09 7b 46 69 65 |TeNums;.|....{Fie|
|00005d10| 6c 64 20 6e 75 6d 62 65 | 72 09 09 09 09 09 09 09 |ld numbe|r.......|
|00005d20| 09 09 7d 0d 09 09 09 09 | 09 09 09 09 09 54 65 78 |..}.....|.....Tex|
|00005d30| 74 3a 20 73 74 72 69 6e | 67 3b 09 09 09 09 09 09 |t: strin|g;......|
|00005d40| 09 09 09 09 7b 54 65 78 | 74 20 77 68 69 63 68 20 |....{Tex|t which |
|00005d50| 69 73 20 74 6f 20 62 65 | 20 70 61 73 74 65 64 09 |is to be| pasted.|
|00005d60| 09 09 09 09 09 7d 0d 09 | 09 09 09 09 09 09 09 09 |.....}..|........|
|00005d70| 52 65 70 6c 61 63 65 3a | 20 62 6f 6f 6c 65 61 6e |Replace:| boolean|
|00005d80| 29 3b 09 09 09 09 09 09 | 09 09 7b 52 65 70 6c 61 |);......|..{Repla|
|00005d90| 63 65 20 61 6c 6c 20 65 | 78 69 73 74 69 6e 67 20 |ce all e|xisting |
|00005da0| 74 65 78 74 20 69 6e 20 | 66 69 65 6c 64 3f 09 09 |text in |field?..|
|00005db0| 09 09 7d 0d 0d 0d 7b 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..}...{=|========|
|00005dc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005dd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 20 4c 20 49 |========|==== L I|
|00005de0| 20 53 20 54 20 20 20 42 | 20 4f 20 58 20 45 20 53 | S T   B| O X E S|
|00005df0| 20 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |  ======|========|
|00005e00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005e10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 09 7d 0d 7b 41 6c 6c |========|=.}.{All|
|00005e20| 20 6c 69 73 74 20 62 6f | 78 20 6f 70 65 72 61 74 | list bo|x operat|
|00005e30| 69 6f 6e 73 20 70 65 72 | 74 61 69 6e 20 74 6f 20 |ions per|tain to |
|00005e40| 74 68 65 20 22 63 75 72 | 72 65 6e 74 22 20 77 69 |the "cur|rent" wi|
|00005e50| 6e 64 6f 77 2e 7d 0d 0d | 7b 43 72 65 61 74 65 20 |ndow.}..|{Create |
|00005e60| 61 20 6e 65 77 20 4c 69 | 73 74 20 42 6f 78 7d 0d |a new Li|st Box}.|
|00005e70| 09 70 72 6f 63 65 64 75 | 72 65 20 4e 65 77 4c 69 |.procedu|re NewLi|
|00005e80| 73 74 42 6f 78 20 28 4c | 69 73 74 42 6f 78 3a 20 |stBox (L|istBox: |
|00005e90| 54 50 5f 4c 4e 75 6d 73 | 3b 09 09 09 09 09 7b 4c |TP_LNums|;.....{L|
|00005ea0| 69 73 74 20 62 6f 78 20 | 6e 75 6d 62 65 72 09 09 |ist box |number..|
|00005eb0| 09 09 09 09 09 09 7d 0d | 09 09 09 09 09 09 09 09 |......}.|........|
|00005ec0| 09 6c 65 66 74 2c 20 74 | 6f 70 2c 20 72 69 67 68 |.left, t|op, righ|
|00005ed0| 74 2c 20 62 6f 74 74 6f | 6d 3a 20 49 6e 74 65 67 |t, botto|m: Integ|
|00005ee0| 65 72 3b 09 09 09 09 09 | 7b 4c 69 73 74 20 62 6f |er;.....|{List bo|
|00005ef0| 78 20 63 6f 2d 6f 72 64 | 69 6e 61 74 65 73 20 28 |x co-ord|inates (|
|00005f00| 6c 6f 63 61 6c 29 09 09 | 09 09 09 7d 0d 09 09 09 |local)..|...}....|
|00005f10| 09 09 09 09 09 09 42 6f | 78 54 79 70 65 3a 20 53 |......Bo|xType: S|
|00005f20| 69 67 6e 65 64 42 79 74 | 65 29 3b 09 09 09 09 09 |ignedByt|e);.....|
|00005f30| 09 09 7b 54 79 70 65 20 | 6f 66 20 72 65 73 70 6f |..{Type |of respo|
|00005f40| 6e 73 65 73 20 74 6f 20 | 6d 6f 75 73 65 20 63 6c |nses to |mouse cl|
|00005f50| 69 63 6b 73 2c 20 73 68 | 69 66 74 2d 63 6c 69 63 |icks, sh|ift-clic|
|00005f60| 6b 2c 09 7d 0d 09 09 09 | 09 09 09 09 09 09 09 09 |k,.}....|........|
|00005f70| 09 09 09 09 09 09 7b 09 | 64 72 61 67 67 69 6e 67 |......{.|dragging|
|00005f80| 2c 20 65 74 63 2e 09 09 | 09 09 09 09 09 09 7d 0d |, etc...|......}.|
|00005f90| 0d 7b 43 72 65 61 74 65 | 20 61 20 6e 65 77 20 4c |.{Create| a new L|
|00005fa0| 69 73 74 20 42 6f 78 20 | 28 63 6f 2d 6f 72 64 69 |ist Box |(co-ordi|
|00005fb0| 6e 61 74 65 73 20 73 70 | 65 63 69 66 69 65 64 20 |nates sp|ecified |
|00005fc0| 61 73 20 61 20 27 72 65 | 63 74 27 29 20 7d 0d 09 |as a 're|ct') }..|
|00005fd0| 70 72 6f 63 65 64 75 72 | 65 20 4e 65 77 4c 69 73 |procedur|e NewLis|
|00005fe0| 74 42 6f 78 52 65 63 74 | 20 28 4c 69 73 74 42 6f |tBoxRect| (ListBo|
|00005ff0| 78 3a 20 54 50 5f 4c 4e | 75 6d 73 3b 09 09 09 09 |x: TP_LN|ums;....|
|00006000| 7b 4c 69 73 74 20 62 6f | 78 20 6e 75 6d 62 65 72 |{List bo|x number|
|00006010| 09 09 09 09 09 09 09 09 | 7d 0d 09 09 09 09 09 09 |........|}.......|
|00006020| 09 09 09 42 6f 75 6e 64 | 73 3a 20 72 65 63 74 3b |...Bound|s: rect;|
|00006030| 09 09 09 09 09 09 09 09 | 09 09 7b 4c 69 73 74 20 |........|..{List |
|00006040| 62 6f 78 20 63 6f 2d 6f | 72 64 69 6e 61 74 65 73 |box co-o|rdinates|
|00006050| 20 28 6c 6f 63 61 6c 29 | 09 09 09 09 09 7d 0d 09 | (local)|.....}..|
|00006060| 09 09 09 09 09 09 09 09 | 42 6f 78 54 79 70 65 3a |........|BoxType:|
|00006070| 20 53 69 67 6e 65 64 42 | 79 74 65 29 3b 09 09 09 | SignedB|yte);...|
|00006080| 09 09 09 09 7b 54 79 70 | 65 20 6f 66 20 72 65 73 |....{Typ|e of res|
|00006090| 70 6f 6e 73 65 73 20 74 | 6f 20 6d 6f 75 73 65 20 |ponses t|o mouse |
|000060a0| 63 6c 69 63 6b 73 2c 20 | 73 68 69 66 74 2d 63 6c |clicks, |shift-cl|
|000060b0| 69 63 6b 2c 09 7d 0d 09 | 09 09 09 09 09 09 09 09 |ick,.}..|........|
|000060c0| 09 09 09 09 09 09 09 09 | 7b 09 64 72 61 67 67 69 |........|{.draggi|
|000060d0| 6e 67 2c 20 65 74 63 2e | 09 09 09 09 09 09 09 09 |ng, etc.|........|
|000060e0| 7d 0d 0d 7b 44 65 6c 65 | 74 65 20 61 20 4c 69 73 |}..{Dele|te a Lis|
|000060f0| 74 20 42 6f 78 7d 0d 09 | 70 72 6f 63 65 64 75 72 |t Box}..|procedur|
|00006100| 65 20 44 65 6c 65 74 65 | 4c 69 73 74 42 6f 78 20 |e Delete|ListBox |
|00006110| 28 4c 69 73 74 42 6f 78 | 3a 20 54 50 5f 4c 4e 75 |(ListBox|: TP_LNu|
|00006120| 6d 73 29 3b 09 09 09 09 | 7b 4c 69 73 74 20 62 6f |ms);....|{List bo|
|00006130| 78 20 6e 75 6d 62 65 72 | 09 09 09 09 09 09 09 09 |x number|........|
|00006140| 7d 0d 0d 7b 53 65 74 20 | 61 20 6c 69 6e 65 20 6f |}..{Set |a line o|
|00006150| 66 20 74 65 78 74 20 69 | 6e 20 61 20 4c 69 73 74 |f text i|n a List|
|00006160| 20 42 6f 78 7d 0d 09 70 | 72 6f 63 65 64 75 72 65 | Box}..p|rocedure|
|00006170| 20 53 65 74 4c 69 73 74 | 42 6f 78 54 65 78 74 20 | SetList|BoxText |
|00006180| 28 4c 69 73 74 42 6f 78 | 3a 20 54 50 5f 4c 4e 75 |(ListBox|: TP_LNu|
|00006190| 6d 73 3b 09 09 09 09 7b | 4c 69 73 74 20 62 6f 78 |ms;....{|List box|
|000061a0| 20 6e 75 6d 62 65 72 09 | 09 09 09 09 09 09 09 7d | number.|.......}|
|000061b0| 0d 09 09 09 09 09 09 09 | 09 09 4c 69 6e 65 4e 75 |........|..LineNu|
|000061c0| 6d 3a 20 54 50 5f 4c 6e | 4e 75 6d 73 3b 09 09 09 |m: TP_Ln|Nums;...|
|000061d0| 09 09 09 09 7b 4c 69 6e | 65 20 6e 75 6d 62 65 72 |....{Lin|e number|
|000061e0| 09 09 09 09 09 09 09 09 | 09 7d 0d 09 09 09 09 09 |........|.}......|
|000061f0| 09 09 09 09 54 65 78 74 | 3a 20 73 74 72 69 6e 67 |....Text|: string|
|00006200| 29 3b 09 09 09 09 09 09 | 09 09 09 7b 54 65 78 74 |);......|...{Text|
|00006210| 20 6f 66 20 73 70 65 63 | 69 66 69 65 64 20 6c 69 | of spec|ified li|
|00006220| 6e 65 20 6e 75 6d 62 65 | 72 09 09 09 09 09 7d 0d |ne numbe|r.....}.|
|00006230| 0d 7b 47 65 74 20 61 20 | 6c 69 6e 65 20 6f 66 20 |.{Get a |line of |
|00006240| 74 65 78 74 20 66 72 6f | 6d 20 61 20 4c 69 73 74 |text fro|m a List|
|00006250| 20 42 6f 78 7d 0d 09 70 | 72 6f 63 65 64 75 72 65 | Box}..p|rocedure|
|00006260| 20 47 65 74 4c 69 73 74 | 42 6f 78 54 65 78 74 20 | GetList|BoxText |
|00006270| 28 4c 69 73 74 42 6f 78 | 3a 20 54 50 5f 4c 4e 75 |(ListBox|: TP_LNu|
|00006280| 6d 73 3b 09 09 09 09 7b | 4c 69 73 74 20 62 6f 78 |ms;....{|List box|
|00006290| 20 6e 75 6d 62 65 72 09 | 09 09 09 09 09 09 09 7d | number.|.......}|
|000062a0| 0d 09 09 09 09 09 09 09 | 09 09 4c 69 6e 65 4e 75 |........|..LineNu|
|000062b0| 6d 3a 20 54 50 5f 4c 6e | 4e 75 6d 73 3b 09 09 09 |m: TP_Ln|Nums;...|
|000062c0| 09 09 09 09 7b 4c 69 6e | 65 20 6e 75 6d 62 65 72 |....{Lin|e number|
|000062d0| 09 09 09 09 09 09 09 09 | 09 7d 0d 09 09 09 09 09 |........|.}......|
|000062e0| 09 09 09 09 76 61 72 20 | 54 65 78 74 3a 20 53 74 |....var |Text: St|
|000062f0| 72 32 35 35 29 3b 09 09 | 09 09 09 09 09 09 7b 54 |r255);..|......{T|
|00006300| 65 78 74 20 6f 66 20 73 | 70 65 63 69 66 69 65 64 |ext of s|pecified|
|00006310| 20 6c 69 6e 65 20 6e 75 | 6d 62 65 72 09 09 09 09 | line nu|mber....|
|00006320| 09 7d 0d 0d 7b 47 65 74 | 20 61 20 4c 69 73 74 20 |.}..{Get| a List |
|00006330| 42 6f 78 27 73 20 6c 69 | 6e 65 20 6e 75 6d 62 65 |Box's li|ne numbe|
|00006340| 72 20 77 68 6f 73 65 20 | 74 65 78 74 20 69 73 20 |r whose |text is |
|00006350| 67 72 65 61 74 65 72 20 | 74 68 61 6e 20 6f 72 20 |greater |than or |
|00006360| 65 71 75 61 6c 20 74 6f | 20 74 68 65 20 73 70 65 |equal to| the spe|
|00006370| 63 69 66 69 65 64 20 73 | 74 72 69 6e 67 7d 0d 09 |cified s|tring}..|
|00006380| 66 75 6e 63 74 69 6f 6e | 20 53 65 61 72 63 68 4c |function| SearchL|
|00006390| 69 73 74 42 6f 78 20 28 | 4c 69 73 74 42 6f 78 3a |istBox (|ListBox:|
|000063a0| 20 54 50 5f 4c 4e 75 6d | 73 3b 09 09 09 09 09 7b | TP_LNum|s;.....{|
|000063b0| 4c 69 73 74 20 62 6f 78 | 20 6e 75 6d 62 65 72 09 |List box| number.|
|000063c0| 09 09 09 09 09 09 09 7d | 0d 09 09 09 09 09 09 09 |.......}|........|
|000063d0| 09 09 54 65 78 74 3a 20 | 73 74 72 69 6e 67 09 09 |..Text: |string..|
|000063e0| 09 09 09 09 09 09 09 09 | 7b 54 65 78 74 20 62 65 |........|{Text be|
|000063f0| 69 6e 67 20 63 6f 6d 70 | 61 72 65 64 09 09 09 09 |ing comp|ared....|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.